A nova versão do electionsBR conta com algumas novidades:
1) Função para baixar dados do perfil de eleitores por local de votação (como exibido no gráfico abaixo)
2) O argumento temp, que quando igual TRUE (default) os arquivos originais do TSE ficam em pasta temporaria da seção em execução, pois assim, na mesa seção não precisa baixar os dados toda vez que usar uma função.
3) Nessa versão estamos exportando o operador pipe %>%, assim não será necessário abrir o pacote magrittr ou outro que também exporta o pipe, a não ser que realmente seja necessario.
#install.packages("electionsBR")
options(timeout = 120)
library(electionsBR)
library(data.table)
library(ggplot2)
maceio <- voter_profile_by_section(2020, temp = T) %>% data.table()
maceio <- maceio[NM_MUNICIPIO == "MACEIÓ", ] %>%
.[, .(total_bairro = sum(QT_ELEITOR)), by = "NM_BAIRRO"] %>%
.[, percent := round(total_bairro * 100 / sum(total_bairro), 2)]
ggplot(maceio, aes(reorder(NM_BAIRRO, percent), percent)) +
geom_bar(stat = "identity") +
coord_flip() +
theme_classic(base_size = 8) +
labs(x = "", y ="%", title = "Porcentagem de eleitores por bairro de Maceió - eleições 2020") +
geom_text(aes(label = percent), hjust = -0.1, size = 2.5) +
scale_y_continuous(limits = c(0, 15))
ggsave("ex_maceio.jpg", width = 8)