Introdução a Método Computacionais para as Ciências Sociais: Exercício 3

Last updated on Apr 16, 2021

Introduções.

Seguimos com nossas instruções.

  • Entrega dos exercícios até sexta-feira, meia noite.

  • Entrega com documento em formato pdf.

  • Entrega via slack.

Divirtam-se.

Banco de dados

Neste exercícios, usaremos o pacote do cepesp para baixar dados eleitorais do Brasil. Portanto, rode o código abaixo para fazer o download dos bancos de dados.

# instale caso você não tenha o pacote. 

# if (!require("devtools")) install.packages("devtools")
# devtools::install_github("Cepesp-Fgv/cepesp-r")

library(cepespR)
library(tidyverse)
# Banco Candidatos Brasil inteiro
candidatos <- get_candidates(year=2018, position="Federal Deputy") %>% 
                as_tibble()

# Banco Votos
votos <- get_votes(year = 2018, position="Federal Deputy", state="RJ") %>%
            as_tibble()

Questão 1.

Usando o banco de candidatos.

  • Quantos candidatos a deputados concorreram no Brasil em 2018 ?
# responda aqui.
  • Quantos partidos diferentes lançaram candidatos no Brasil ?
# responda aqui.
  • Qual o número de candidatos por Estado ?
# responda aqui.

Questão 2

Usando o banco de votos para Deputado Federal no Rio de Janeiro.

  • Quantos deputados receberam ao menos um voto ?
# responda aqui
  • Qual o candidato mais bem votado em números absolutos no Estado do Rio de Janeiro ?
# responda aqui
  • Quais os dez partidos com maior proporção de votos no Estado do Rio de Janeiro ?
# Esta é mais complexa. Para começar, estou criando para vocês a variável partido. 
votos <- votos %>%
          # nova variável com os primeiros dois numeros de cada candidato
          # igual ao número do partido
          mutate(NR_PARTIDO=str_sub(NUMERO_CANDIDATO, 1, 2)) 

# Daqui pra frente é com vocês

Ponto Extra

Para ganhar pontos extras, tente responder estas questões que discutimos rapidamente em sala.

Abra o banco de dados de candidatos a deputado federal no Rio de Janeiro.

dep_rio <- get_candidates(year=2018,
                          position="Federal Deputy") %>%
           as_tibble()

1 - Qual partido elegeu mais deputados? (3 linhas)

# Dica: `data %>% filter(COD_SIT_TOT_TURNO==2 | COD_SIT_TOT_TURNO==3) =  filtra somente os eleitos.

2 - Qual o número de candidatos eleitos de acordo com o gênero e partido ? (3 linhas)

#responda aqui

Até a próxima!