TSE - Municipio do Rio de Janeiro - Eleições Municipais - Vereadores eleitos em 2020 e suas eleições anteriores

Municipio do Rio de Janeiro - Eleições Municipais - Vereadores eleitos em 2020 e suas eleições anteriores
Municipio do Rio de Janeiro - Eleições Municipais - Vereadores eleitos em 2020 e suas eleições anteriores

Este gráfico mostra os votos recebidos pelos vereadores eleitos em 2020 no Município do Rio de Janeiro, e os votos que receberam nas eleições anteriores em que também foram eleitos. Não são mostrados os votos que receberam estes vereadores em eleições anteriores, onde se candidataram mas não foram eleitos.

Como pode ser observado, deste grupo somente os vereadores Carlos Bolsonaro e Rosa Fernandes foram eleitos em 2000. Foi o primeiro mandato do vereador Carlos Bolsonaro, enquanto a vereadora Rosa Fernandes foi eleita em 1992 e permanece na Câmara Municipal desde 1993.

A fusão do estado da Guanabara com o estado do Rio de Janeiro foi sancionada pela LEI COMPLEMENTAR Nº 20, DE 1º DE JULHO DE 1974, que especifica no seu Art. 8º que Os Estados do Rio de Janeiro e da Guanabara passarão a constituir um único Estado, sob a denominação de Estado do Rio de Janeiro, a partir de 15 de março de 1975. Com isso, a primeira legislatura do recém criado Município do Rio de Janeiro foi de 1/2/1977 a 31/1/1983.

O mais antigo vereador ainda presente é Jorge Felippe, que entrou na primeira legislatura em 1979, substituindo o vereador Romualdo Carrasco, presidente da Câmara Municipal em 1977 e 1978, após este ter sido eleito deputado estadual. O vereador Jorge Felippe não esteve presente na 2ª, 5ª e 6ª legislaturas.

Votos recebidos (não eleito)
Vereador(a) 2020 2016 2012 2008 2004 2000 1996 1992
ALEXANDRE ISQUIERDO 17.764 24.701 33.356
CARLO CAIADO 26.212 28.122 15.148 19.042 23.790
CARLOS BOLSONARO 71.000 106.657 23.679 28.209 22.355 16.053
CELSO COSTA 10.523 (3.179) (4.062)
CESAR MAIA 55.031 71.468 44.095
CHICO ALENCAR 49.422
DR GILBERTO 9.445 12.165 (7.700)
DR JOÃO RICARDO 10.227
DR MARCOS PAULO 9.009
DR. CARLOS EDUARDO 15.026 19.822 33.894 27.297 10.586
FELIPE MICHEL 20.936 10.300 (4.016)
GABRIEL MONTEIRO 60.326
INALDO SILVA 21.885
JAIR DA MENDES GOMES 13.595 8.112 (4.928)
JAIRINHO 16.061 26.047 43.181 23.941
JOÃO MENDES DE JESUS 20.811 31.516 24.973 20.005
JONES MOURA 11.597 12.722
JORGE FELIPPE 18.507 28.104 37.520 24.480 24.965 (9.203) 15.288
JUNIOR DA LUCINHA 19.732 45.124 31.182
LAURA CARNEIRO 14.646 14.621 12.214
LINDBERGH FARIAS 24.912
LUCIANO VIEIRA 24.070
LUIZ CARLOS RAMOS FILHO 15.602 8.618
MARCELO ARAR 12.330 16.230 16.756 (8.831) (7.070)
MARCIO RIBEIRO 19.383
MARCIO SANTOS DE ARAUJO 7.467
MARCOS BRAZ 40.938 (2.268)
MONICA BENICIO 22.919
PAULO PINHEIRO 14.760 13.141 28.539 20.936 22.146
PEDRO DUARTE 10.069 (4.450)
RAFAEL ALOISIO FREITAS 18.851 22.897 25.278
REIMONT 16.082 19.626 18.014 10.723
RENATO MOURA 10.588 13.572 15.775 18.012 14.419
ROCAL 9.280
ROGÉRIO AMORIM 6.719 (948)
ROSA FERNANDES 26.409 57.868 68.452 64.259 99.943 107.865 72.038 12.231
TAINÁ DE PAULA 24.881
TÂNIA BASTOS 19.027 22.930 24.850 15.742 (12.747)
TARCISIO MOTTA 86.243 90.473
TERESA BERGHER 21.131 30.566 27.344 31.375 29.346
THAIS FERREIRA 14.284
THIAGO K RIBEIRO 18.960 24.900 16.096
ULISSES MARINS 14.660 (5.193) (5.340) (4.620)
VERA LINS 19.242 36.117 31.827 23.528
VERÔNICA COSTA 17.939 19.946 31.515 29.438
VITOR HUGO 5.423
WALDIR BRAZÃO 8.332
WELLINGTON DIAS 13.327
WILLIAM SIRI 9.957 (6.286)
WILLIAN COELHO 15.126 20.678 16.505 (5.784)
ZICO 13.964 21.565 (6.419) (6.190) (6.111)
Legislaturas
LegislaturaInícioFimEdis
11/2/197731/1/198321
21/2/198331/12/198833
31/1/198931/12/199242
41/1/199331/12/199642
51/1/199731/12/200042
61/1/200131/12/200442
71/1/200531/12/200850
81/1/200931/12/201251
91/1/201331/12/201651
101/1/201731/12/202051
111/1/202131/12/202451
Dados

Os dados foram obitidos na página Repositório de dados eleitorais do Tribunal Superior Eleitoral (TSE).

Programa

Abaixo está mostrado o código do programa, escrito em R, que gera o gráfico, mas antes de ser executado as bibliotecas utilizadas precisam ser instaladas.

#
# source('tse_cmrj_vereadores_2020_evolucao_2000.R')
#
# Programa para gerar um gráfico mostrando os votos recebidos pelos vereadores
# eleitos em 2020 no Município do Rio de Janeiro, e os votos que receberam nas
# eleições anteriores em que também foram eleitos.
#
# Bibliotecas
library(utils)
library(lubridate)
library(dplyr)
library(tidyr)
library(ggplot2)
library(gridExtra)
library(stringr)
library(scales)
library(ggsci)
library(DBI)

# Conectar ao banco de dados
con <- dbConnect(RMariaDB::MariaDB(), group = "tse")

# Ler os dados do período no banco de dados
sql <- paste("SELECT A.nome, A.votos AS '2020', B.votos AS '2016',",
"C.votos AS '2012', D.votos AS '2008',",
"E.votos AS '2004', F.votos AS '2000'",
"FROM vw_cmrj_vereadores_eleitos_2020 A",
"LEFT OUTER JOIN vw_cmrj_vereadores_eleitos_2016 B",
"USING (nome)",
"LEFT OUTER JOIN vw_cmrj_vereadores_eleitos_2012 C",
"USING (nome)",
"LEFT OUTER JOIN vw_cmrj_vereadores_eleitos_2008 D",
"USING (nome)",
"LEFT OUTER JOIN vw_cmrj_vereadores_eleitos_2004 E",
"USING (nome)",
"LEFT OUTER JOIN vw_cmrj_vereadores_eleitos_2000 F",
"USING (nome)",
"ORDER BY nome;")

rs <- dbSendQuery(con, sql)
dados <- dbFetch(rs, n = -1)
dbHasCompleted(rs)
dbClearResult(rs)

# Desconectar do banco de dados
dbDisconnect(con)

vereadores <- pivot_longer(
    dados,
    cols = starts_with("2"),
    names_to = "ano",
    values_to = "votos",
    values_drop_na = TRUE)

vereadores <- mutate_if(vereadores, is.character, as.factor)

# Gráfico da evoluçao
plot_evol <- ggplot(vereadores, aes(x = nome, y = votos, fill = ano)) +
    labs(
        title = "TSE - Municipio do Rio de Janeiro - Eleições Municipais",
        subtitle = "Vereadores eleitos em 2020 e suas eleições anteriores",
        caption = NULL,
        x = "Vereadores",
        y = "Votos"
    ) +
    geom_bar(
        stat = "identity",
        position = "stack"
    ) +
    guides(fill = guide_legend(title = "Eleição")) +
    theme_minimal() +
    theme(
        legend.direction = "horizontal",
        legend.position = "top",
        legend.text = element_text(size = 12),
        legend.title = element_text(size = 14),
        panel.grid.major = element_line(size = 0.5, linetype = 'solid', colour = "lightblue"),
        axis.text.x = element_text(size = 10, angle = 60, hjust = 1),
        axis.text.y = element_text(size = 10),
        axis.title.x = element_text(size = 14),
        axis.title.y = element_text(size = 14),
        plot.title = element_text(size = 20),
        plot.subtitle = element_text(size = 16),
        plot.caption = element_text(size = 12),
    ) +
    scale_fill_discrete()

# Gravar a imagem do gráfico no disco
ggsave("~/R/img/tse_cmrj_vereadores_2020_evolucao_2000.png",
       plot_evol, device = png(), width = 11, height = 6.25, dpi = 72)

dev.off()
Referências