Atividade 4 de Estatística
Maria Clara de Oliveira Queiroz
2023-05-03
library(electionsBR)
electionsBR::parties_br()
Introdução
A análise a seguir foi feita para descobrir se há partidos do estado de Pernambuco que não cumprem a lei de cota de 30% de mulheres nas eleições de 2018. Será feita a utilização de tabelas e gráficos.
Carregamento dos dados:
library(electionsBR)##
## To cite electionsBR in publications, use: citation('electionsBR')## To learn more, visit: http://electionsbr.comlibrary(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionelectionsBR::parties_br()## [1] "AVANTE" "CIDADANIA" "DC" "DEM"
## [5] "MDB" "NOVO" "PATRIOTA" "PC do B"
## [9] "PCB" "PCO" "PDT" "PEN"
## [13] "PHS" "PMB" "PMN" "PODE"
## [17] "PP" "PPL" "PPS" "PR"
## [21] "PRB" "PROS" "PRP" "PRTB"
## [25] "PSB" "PSC" "PSD" "PSDB"
## [29] "PSDC" "PSL" "PSOL" "PSTU"
## [33] "PT" "PT do B" "PTB" "PTC"
## [37] "PTN" "PV" "REDE" "REPUBLICANOS"
## [41] "SD" "SOLIEDARIEDADE" "UP"Download da base de dados
# Download da base de dados
Candidatos = candidate_fed(year = 2018, uf="PE")## Processing the data...## Done.Pergunta de pesquisa: Os partidos estão cumprindo a cota de 30% de mulheres nas eleições?
Filtragem dos dados
#---------------------------
# Filtro para os deputados
#---------------------------
dep.estadual = Candidatos %>% filter(DS_CARGO=="DEPUTADO ESTADUAL")
dep.federal = Candidatos %>% filter(DS_CARGO=="DEPUTADO FEDERAL")Tabela e proporção: Partido x Gênero
Deputado Estadual
### Deputado Estadual
#### Tabela:
tabela_dep_est = table(dep.estadual$DS_GENERO, dep.estadual$SG_PARTIDO)
tabela_dep_est##
## AVANTE DC DEM MDB PATRIOTA PC do B PCB PCO PDT PHS PMB PMN PODE PP
## FEMININO 13 6 4 0 13 18 1 0 4 5 1 3 2 11
## MASCULINO 20 16 6 1 30 42 2 1 7 14 0 4 2 36
##
## PPL PPS PR PRB PROS PRP PRTB PSB PSC PSD PSDB PSL PSOL PSTU PT PTB
## FEMININO 0 14 3 3 5 22 8 10 12 1 7 5 11 2 9 4
## MASCULINO 9 30 6 14 23 35 18 17 28 3 13 13 20 1 19 10
##
## PTC PV REDE SOLIDARIEDADE
## FEMININO 0 4 4 7
## MASCULINO 1 9 9 10#### Proporção:
proporção_deputado_estadual = prop.table(tabela_dep_est, 2)*100
proporção_deputado_estadual##
## AVANTE DC DEM MDB PATRIOTA PC do B
## FEMININO 39.39394 27.27273 40.00000 0.00000 30.23256 30.00000
## MASCULINO 60.60606 72.72727 60.00000 100.00000 69.76744 70.00000
##
## PCB PCO PDT PHS PMB PMN
## FEMININO 33.33333 0.00000 36.36364 26.31579 100.00000 42.85714
## MASCULINO 66.66667 100.00000 63.63636 73.68421 0.00000 57.14286
##
## PODE PP PPL PPS PR PRB
## FEMININO 50.00000 23.40426 0.00000 31.81818 33.33333 17.64706
## MASCULINO 50.00000 76.59574 100.00000 68.18182 66.66667 82.35294
##
## PROS PRP PRTB PSB PSC PSD
## FEMININO 17.85714 38.59649 30.76923 37.03704 30.00000 25.00000
## MASCULINO 82.14286 61.40351 69.23077 62.96296 70.00000 75.00000
##
## PSDB PSL PSOL PSTU PT PTB
## FEMININO 35.00000 27.77778 35.48387 66.66667 32.14286 28.57143
## MASCULINO 65.00000 72.22222 64.51613 33.33333 67.85714 71.42857
##
## PTC PV REDE SOLIDARIEDADE
## FEMININO 0.00000 30.76923 30.76923 41.17647
## MASCULINO 100.00000 69.23077 69.23077 58.82353Deputado Federal
#### Tabela:
tabela_dep_fed = table(dep.federal$DS_GENERO, dep.federal$SG_PARTIDO)
tabela_dep_fed##
## AVANTE DC DEM MDB NOVO PATRIOTA PC do B PCB PCO PDT PHS PMN PODE PP
## FEMININO 5 5 0 0 4 12 0 1 0 2 3 4 1 1
## MASCULINO 2 11 4 2 6 26 1 3 1 7 8 7 2 8
##
## PPL PPS PR PRB PROS PRP PRTB PSB PSC PSD PSDB PSL PSOL PSTU PT PTB
## FEMININO 7 2 5 0 5 5 3 6 2 0 1 3 12 1 6 5
## MASCULINO 12 3 6 3 17 11 5 10 4 1 3 9 23 1 11 3
##
## PTC PV REDE SOLIDARIEDADE
## FEMININO 1 3 10 2
## MASCULINO 5 5 18 6#### Proporção:
proporção_deputado_federal = prop.table(tabela_dep_fed, 2)*100
proporção_deputado_federal##
## AVANTE DC DEM MDB NOVO PATRIOTA
## FEMININO 71.42857 31.25000 0.00000 0.00000 40.00000 31.57895
## MASCULINO 28.57143 68.75000 100.00000 100.00000 60.00000 68.42105
##
## PC do B PCB PCO PDT PHS PMN
## FEMININO 0.00000 25.00000 0.00000 22.22222 27.27273 36.36364
## MASCULINO 100.00000 75.00000 100.00000 77.77778 72.72727 63.63636
##
## PODE PP PPL PPS PR PRB
## FEMININO 33.33333 11.11111 36.84211 40.00000 45.45455 0.00000
## MASCULINO 66.66667 88.88889 63.15789 60.00000 54.54545 100.00000
##
## PROS PRP PRTB PSB PSC PSD
## FEMININO 22.72727 31.25000 37.50000 37.50000 33.33333 0.00000
## MASCULINO 77.27273 68.75000 62.50000 62.50000 66.66667 100.00000
##
## PSDB PSL PSOL PSTU PT PTB
## FEMININO 25.00000 25.00000 34.28571 50.00000 35.29412 62.50000
## MASCULINO 75.00000 75.00000 65.71429 50.00000 64.70588 37.50000
##
## PTC PV REDE SOLIDARIEDADE
## FEMININO 16.66667 37.50000 35.71429 25.00000
## MASCULINO 83.33333 62.50000 64.28571 75.00000A partir da análise dos dados obtidos acima, é perceptível que:
22 de 34 partidos listados cumpriram a cota de candidatas mulheres de 30% para o cargo de deputado estadual.
E apenas 19 de 34 partidos listados cumpriram a cota de 30% de candidaturas de mulheres para o cargo de deputado federal.
A discrepância entre as candidaturas masculinas e femininas serão mais visíveis ao observar os gráficos a seguir:
Gráficos
Deputado Estadual
Quantidade de candidatos de acordo com o gênero em cada partido.
dep.estadual %>%
select(DS_GENERO, SG_PARTIDO) %>%
table()%>%
barplot(col = c("palevioletred1", "dodgerblue"), ylab = "Número de candidatos", xlab = "Partidos Políticos", legend.text = rownames(tabela_dep_est), ylim = c(0,100), args.legend = list(x = "topright"), main = "Gênero X Partido: Dep.Estadual")
par(cex=0.4)Deputado Federal
dep.federal %>%
select(DS_GENERO, SG_PARTIDO) %>%
table()%>%
barplot(col = c("#db2525", "#3019c2"), legend.text = rownames(tabela_dep_est), ylim = c(0,100), ylab = "Número de candidatos", xlab = "Partidos Políticos", main = "Gênero X Partido: Dep.Federal")
par(cex=0.4)Conclusão
Portanto, a partir da análise dos dados foi possível observar que alguns partidos não respeitaram a cota de 30% de candidatura de mulheres. Os partidos que desrespeitaram a lei (por cargo) foram:
Deputado Estadual:
DC (27%), MDB(0%), PCO(0%), PHS(26%), PP(23%), PPL(O%), PRB(18%), PROS(18%), PSD(25%), PSL(28%), PTB(28%) e PTC(0%).
Deputado Federal
DEM(0%), MDB(0%), PC do B (0%), PCB(25%), PCO(0%), PDT(22%), PHS(27%), PP(11%), PRB(0%), PROS(23%), PSD(0%), PSDB(25%), PSL(25%), PTC(16%) e SOLIDARIEDADE(25%).
Partidos que não atingiram a cota de candidatura em nenhum dos cargos:
O total de 9 partidos não respeitou a cota de 30% para a candidatura de mulheres em nenhum cargo das eleições proporcionais, que são os listados a seguir:
MDB, PCO, PHS, PP, PRB, PROS, PSD, PSL e PTC.