Trabalho 4

Carregandos as bibliotecas

Carregando as bibliotecas electionsBR e dplyr.

library(electionsBR)
library(dplyr)

Criando bancos de dados

Criandos os bancos de dados que vamos usar na nossa análise.

banco2 = candidate_fed(year = 2018, uf = "RN")
deputados_fed_rn = banco2 %>% filter(DS_CARGO=="DEPUTADO FEDERAL")

Tabelas

Tabela de números absolutos

tabela_dep_fed = table(deputados_fed_rn$DS_GENERO, deputados_fed_rn$SG_PARTIDO)
tabela_dep_fed

##            
##             AVANTE DC DEM MDB NOVO PATRIOTA PC do B PCO PDT PHS PMB PMN PODE PP
##   FEMININO       1  0   0   2    2        5       2   0   1   2   0   0    2  1
##   MASCULINO      1  1   1   2    3        7       4   1   3   2   2   1    2  2
##            
##             PPL PPS PR PRB PROS PRP PRTB PSB PSC PSD PSDB PSL PSOL PSTU PT PTB
##   FEMININO    0   0  0   1    1   1    5   0   0   2    0   0    4    0  2   0
##   MASCULINO   4   1  1   1    0   1    9   1   2   2    1   1    8    1  4   1
##            
##             PTC PV REDE SOLIDARIEDADE
##   FEMININO    1  0    1             5
##   MASCULINO   1  1    2             6

Aqui podemos ver uma tabela de núemros absolutos de candidatos por gênero divididos por partido.

Tabela proporcional

proporção_dep_fed =round(prop.table(tabela_dep_fed,2)*100,1)
proporção_dep_fed

##            
##             AVANTE    DC   DEM   MDB  NOVO PATRIOTA PC do B   PCO   PDT   PHS
##   FEMININO    50.0   0.0   0.0  50.0  40.0     41.7    33.3   0.0  25.0  50.0
##   MASCULINO   50.0 100.0 100.0  50.0  60.0     58.3    66.7 100.0  75.0  50.0
##            
##               PMB   PMN  PODE    PP   PPL   PPS    PR   PRB  PROS   PRP  PRTB
##   FEMININO    0.0   0.0  50.0  33.3   0.0   0.0   0.0  50.0 100.0  50.0  35.7
##   MASCULINO 100.0 100.0  50.0  66.7 100.0 100.0 100.0  50.0   0.0  50.0  64.3
##            
##               PSB   PSC   PSD  PSDB   PSL  PSOL  PSTU    PT   PTB   PTC    PV
##   FEMININO    0.0   0.0  50.0   0.0   0.0  33.3   0.0  33.3   0.0  50.0   0.0
##   MASCULINO 100.0 100.0  50.0 100.0 100.0  66.7 100.0  66.7 100.0  50.0 100.0
##            
##              REDE SOLIDARIEDADE
##   FEMININO   33.3          45.5
##   MASCULINO  66.7          54.5

Aqui podemos ver uma tabela mostrando as porcentagens do gênero dos candidatos por partido.

Gráfico

par(cex = 0.8)
barplot(proporção_dep_fed, col = c("#780301","#01016e"), legend.text = rownames(proporção_dep_fed), main = "Gráfico da porcentagem por gênero - partidos", las = 2,cex.names = 0.8)

E aqui temos um gráfico de barras que ilustra os números percentuais de gênero por partido.

Análise dos dados

Podemos concluir que os partidos: DC, DEM, PCO, PDT, PMB, PMN, PPL, PPS, PR, PSB, PSC, PSDB, PSL, PSTU, PTB e PV, não cumprem com a cota, ou seja, não tem mulheres como 30% dos seus candidatos no Rio Grande do norte.

Se vê necessário, então, uma punição a esses partidos para que respeitem a cota feminina nas eleições e possamos expandir a inclusão de mulheres na atuação política institucional.