Analisando os dados de votação em 2016 para simular a clausula de barreira.
votacao_partido <- multmerge("~/devel/rexperiments/eleicoes/data/2016/votacao_partido/") %>%
mutate(V19=as.numeric(V19),V20=as.numeric(V20))
vpp <- votacao_partido %>%
filter(V12=="Vereador") %>%
group_by(V16) %>%
summarise(votos_nom=sum(V19, na.rm=TRUE),votos_leg=sum(V20, na.rm=TRUE)) %>%
mutate(total_leg=votos_nom+votos_leg) %>%
mutate(perc_total=round(total_leg/sum(total_leg)*100,2)) %>%
select(Partido=V16,Votos=total_leg,Percentual=perc_total) %>%
arrange(-Percentual)Lista de partidos por ordem de votação e percentual do total
| Partido | Votos | Percentual |
|---|---|---|
| PMDB | 9963853 | 9.34 |
| PSDB | 9096276 | 8.53 |
| PSD | 6599851 | 6.19 |
| PSB | 6143972 | 5.76 |
| PDT | 6115983 | 5.74 |
| PP | 6042426 | 5.67 |
| PT | 5773103 | 5.41 |
| DEM | 4759612 | 4.46 |
| PTB | 4741082 | 4.45 |
| PR | 4710366 | 4.42 |
| PRB | 4076451 | 3.82 |
| PPS | 3465695 | 3.25 |
| PSC | 3373861 | 3.16 |
| PV | 3228369 | 3.03 |
| SD | 2958671 | 2.77 |
| PHS | 2477462 | 2.32 |
| PC do B | 2454586 | 2.30 |
| PTN | 2211760 | 2.07 |
| PSL | 2003989 | 1.88 |
| PROS | 1902487 | 1.78 |
| PRP | 1800527 | 1.69 |
| PTC | 1674207 | 1.57 |
| PEN | 1627066 | 1.53 |
| PMN | 1497500 | 1.40 |
| PSDC | 1474908 | 1.38 |
| PT do B | 1329772 | 1.25 |
| PSOL | 1301334 | 1.22 |
| PRTB | 1262530 | 1.18 |
| REDE | 798613 | 0.75 |
| PMB | 769651 | 0.72 |
| PPL | 603415 | 0.57 |
| NOVO | 312419 | 0.29 |
| PSTU | 52737 | 0.05 |
| PCB | 30381 | 0.03 |
| PCO | 3267 | 0.00 |