Eleições e proporcionaldiade no Estado do Sergipe

Nas eleições de 2018, o Estado do sergipe possuiu 124 candidatos ao cargo de Deputado Federal, com um total de 33 partidos concorrendo. Desses 124 40 eram mulheres e 84 eram homens

Segundo o artigo 10, parágrafo 3º, da Lei das Eleições (Lei nº 9.504/1997) cada partido ou coligação deve preencher o mínimo de 30% e o máximo de 70% para candidaturas de cada sexo, nas eleições para Câmara dos Deputados, Câmara Legislativa do Distrito Federal, Assembleias Legislativas e Câmaras Municipais.

Visto isso, vamos observar a distribuição de mulheres por partido.

library(electionsBR)
library(dplyr)
banco2 = candidate_fed(year = 2018,uf="SE")

dep_fed_18 = banco2 %>% filter(DS_CARGO=="DEPUTADO FEDERAL")
tabela_dep_fed = table(dep_fed_18$SG_PARTIDO,dep_fed_18$DS_GENERO)
prop.table(tabela_dep_fed,1)*100
##                
##                  FEMININO MASCULINO
##   AVANTE         33.33333  66.66667
##   DC             33.33333  66.66667
##   DEM            20.00000  80.00000
##   MDB            33.33333  66.66667
##   NOVO           50.00000  50.00000
##   PATRIOTA       50.00000  50.00000
##   PC do B        50.00000  50.00000
##   PCB            33.33333  66.66667
##   PDT            66.66667  33.33333
##   PHS            33.33333  66.66667
##   PMN            25.00000  75.00000
##   PODE           25.00000  75.00000
##   PP              0.00000 100.00000
##   PPL            66.66667  33.33333
##   PPS             0.00000 100.00000
##   PR             50.00000  50.00000
##   PRB            50.00000  50.00000
##   PROS            0.00000 100.00000
##   PRP             0.00000 100.00000
##   PRTB           33.33333  66.66667
##   PSB            16.66667  83.33333
##   PSC             0.00000 100.00000
##   PSD             0.00000 100.00000
##   PSDB           33.33333  66.66667
##   PSL            33.33333  66.66667
##   PSOL           30.00000  70.00000
##   PSTU           50.00000  50.00000
##   PT             33.33333  66.66667
##   PTB             0.00000 100.00000
##   PTC             0.00000 100.00000
##   PV             40.00000  60.00000
##   REDE           30.76923  69.23077
##   SOLIDARIEDADE  50.00000  50.00000

Como podemos ver na tabela acima, dos 33 partidos, 21 cumpriram a cota de 30%, os 12 que deixaram de cumprir são: DEM, PP, PPS, PROS, PRP, PSC, PSD, PTB, PTC, PSB, PMN, PODE.

Agora veja em um gráfico de barras para melhor visualização

tabela_dep_fed2 = table(dep_fed_18$DS_GENERO,dep_fed_18$SG_PARTIDO)
barplot(tabela_dep_fed2,col = c('#EE82EE','#6495ED'),
        legend.text = rownames(tabela_dep_fed2),
        ylim = c(0,15))

Podemos concluir então que a maioria dos partidos cumpriu com a lei nas eleições para deputado federal do Sergipe.