Relatório Rede 2020

Custo por Voto dos Partidos

## `summarise()` ungrouping output (override with `.groups` argument)

## Joining, by = "PARTIDO"

Custo por Voto na REDE

rede <- filter(candidatos, PARTIDO=='REDE')

p <- ggplot(rede, aes(x=TOTAL, y=VOTOS, color=NM_URNA_CANDIDATO)) +
  geom_point(show.legend = FALSE) +
  geom_label(aes(label=NM_URNA_CANDIDATO), show.legend = FALSE)
p

## Warning: Removed 4 rows containing missing values (geom_point).

## Warning: Removed 4 rows containing missing values (geom_label).

DT::datatable(rede, 
         extensions = c('FixedColumns',"FixedHeader"),
          options = list(scrollX = TRUE, 
                         paging=FALSE,
                         fixedHeader=TRUE))