Zodiaco das Eleições

R Markdown

Testando o R Markdown para compartilhar resultados de análises dos dados.

Carregando as libs.

library(dplyr)
library(DescTools)

Carregando os dados.

candidatos <- read.csv("~/devel/eleicoes2016/raw/eleicao2012/consulta_cand_2012_SP.txt", sep=";",quote="\"", header = FALSE, fileEncoding="cp1252")

Signos dos Eleitos

candidatos_z <- candidatos %>%
  mutate(signo = Zodiac(strptime(V27, "%d/%m/%Y"))) %>%
  filter(V10 == "VEREADOR", V43 %in% c('ELEITO POR MÉDIA', 'ELEITO POR QP'))

Testando embeds de plots

signos <- candidatos_z %>%
  filter(V8 == "SÃO PAULO") %>%
  group_by(signo) %>%
  summarise(amount=n())
barplot(signos$amount,names.arg=signos$signo, las=2)
title("São Paulo")

signos <- candidatos_z %>%
  filter(V8 == "GUARULHOS") %>%
  group_by(signo) %>%
  summarise(amount=n())
barplot(signos$amount,names.arg=signos$signo, las=2)
title("Guarulhos")

signos <- candidatos_z %>%
  filter(V8 == "CAMPINAS") %>%
  group_by(signo) %>%
  summarise(amount=n())
barplot(signos$amount,names.arg=signos$signo, las=2)
title("Campinas")