zodiac.r

library(data.table)
library(dplyr)
library(DescTools)
library(ggplot2)

candidatos2020 <- fread("~/devel/datasets/eleicoes/2020/candidatos/consulta_cand_2020_BRASIL.csv", encoding = 'Latin-1')
recursos2020 <- fread("~/devel/datasets/eleicoes/2020/contas/receitas/receitas_candidatos_2020_BRASIL.csv", encoding="Latin-1", dec=",", sep=";") %>%
  mutate(ORIGEM=ifelse(DS_ORIGEM_RECEITA=="Recursos de partido político","PARTIDO_2020","PRIVADO_2020")) %>%
  group_by(SQ_CANDIDATO, ORIGEM) %>%
  summarise(TOTAL=sum(VR_RECEITA)) %>%
  spread(ORIGEM, TOTAL, fill=0)

elementos <- data.frame("SIGNO" = c('Capricorn', 'Aquarius', 'Pisces', 'Aries', 'Taurus', 'Gemini', 'Cancer', 'Leo', 'Virgo', 'Libra', 'Scorpio', 'Sagittarius'),
                        "ELEMENTO" = c("Terra", "Ar", "Água", "Fogo","Terra", "Ar", "Água", "Fogo","Terra", "Ar", "Água", "Fogo")  
                        )

candidatos <- candidatos2020 %>%
  filter(DS_CARGO=="VEREADOR") %>%
  mutate(DATA_NASCIMENTO=as.Date(DT_NASCIMENTO, format="%d/%m/%Y")) %>%
  mutate(SIGNO=Zodiac(DATA_NASCIMENTO)) %>%
  left_join(recursos2020) %>%
  left_join(elementos) %>%
  group_by(SG_PARTIDO, ELEMENTO) %>%
  summarise(TOTAL=sum(PARTIDO_2020, na.rm = TRUE))

p <- ggplot(candidatos, aes(x=SG_PARTIDO, y=TOTAL, fill=ELEMENTO)) +
  geom_bar(position="fill", stat="identity") + 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))
p