Você conhece todos os candidatos da coligação do seu candidato? Veja aqui quem pode acabar entrando (ou ficando de fora) por conta do sistema proporcional.
candidatos2016 <- read.csv("~/devel/eleicoes2016/raw/eleicao2016/consulta_cand_2016_SP.txt", sep=";", quote="\"", header = FALSE, fileEncoding="cp1252")
candidatos_sp <- candidatos2016 %>%
filter(V10 == 'VEREADOR', V8 == 'SÃO PAULO')
edges_can <- candidatos_sp %>%
select(V15,V19) %>%
rename(source=V15,target=V19)
edges_col <- candidatos_sp %>%
select(V19,V23) %>%
rename(source=V19,target=V23)
edges <- full_join(edges_can,edges_col)
## Joining by: c("source", "target")
## Warning in outer_join_impl(x, y, by$x, by$y): joining factors with
## different levels, coercing to character vector
## Warning in outer_join_impl(x, y, by$x, by$y): joining factors with
## different levels, coercing to character vector
simpleNetwork(edges)