-
Notifications
You must be signed in to change notification settings - Fork 0
/
Zonas_eleitorais.Rmd
102 lines (74 loc) · 2.44 KB
/
Zonas_eleitorais.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
---
title: "Zonas eleitorais"
author: "William Peixoto"
date: "25 de junho de 2018"
output:
html_document:
toc: true
toc_depth: 3
number_sections: true
theme: united
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
DATA_DIR = "/home/william/Downloads/Dados/TSE/mz"
```
```{r load data, echo=FALSE}
# source("aux.R")
anoturno = function(ano, turno) {
ano_s = as.character(ano)
paste0(ano_s, "_", turno)
}
dados = list()
for (ano in c(1998, 2002, 2006, 2010, 2014)) {
for (turno in c("1", "2")) {
filename = paste0(DATA_DIR, "/", anoturno(ano, turno), ".csv")
df = read.csv(filename, encoding = "ISO-8859", sep = ",", stringsAsFactors = F)
dados[[anoturno(ano, turno)]] = list(ANO=ano, TURNO=turno, DF=df)
}
}
```
# Zonas eleitorais
As zonas eleitorais são compostas de seções, onde os eleitores efetivamente votam. O TSE divulga as informações agrupadas por zona e por seção. Nesta página, apenas os dados agrupados pelo TSE serão analisados.
A quantidade de zonas aumentou junto com a população de eleitores. Eram 14 em 1998 e são 21 hoje.
## Distribuições de frequências
### Densidades
#### Quantidades de eleitores aptos
```{r qtd_aptos_density, echo=FALSE, fig.height=3, fig.width=3}
# source("aux.R")
for (item in dados) {
## item = dados[[1]]
df <- item$DF
# print(paste(item$ANO, " ", length(item$DF$QTD_APTOS), nrow(df)))
# print(df$QTD_APTOS)
# print(item$DF$QTD_APTOS)
titulo <- paste(item$ANO, item$TURNO, "turno")
# titulo <- paste("Densidade de QTD_APTOS em ", item$ANO, item$TURNO, "turno")
plot(density(df$QTD_APTOS), main = titulo)
}
```
#### Taxa de abstenção
```{r Taxa_Abstencao_density, echo=FALSE, fig.height=3, fig.width=3}
# source("aux.R")
for (item in dados) {
df <- item$DF
titulo <- paste(item$ANO, item$TURNO, "turno")
plot(density(df$TAXA_ABSTENCAO), main = titulo)
}
```
### Gráficos qq-plot
## Médias e desvios-padrão, por turno
```{r}
for (ano in c(1998, 2002, 2006, 2010, 2014)) {
for (turno in c("1", "2")) {
print(anoturno(ano, turno))
}
}
```
## Comparações entre turnos
Para eleições no mesmo ano, há razões suficientes para considerar que sejam observações sucessivas em uma mesma população (Lei das Eleições).
### Força dos testes
## Comparações entre anos distintos
Foram consideradas independentes as eleições ocorridas em anos distintos.
### Força dos testes