Laboratorio #2 – Análisis de Elecciones Primarias con Dplyr

library(readr)
library(dplyr)
library(tidyr)
results <- read.csv("primary_results.csv")

glimpse(results)

Observations: 24,611
Variables: 8
$ state              <fct> Alabama, Alabama, Alabama, Alabama, Alabama, Alabama, Alabama, Alabama, Alabama, Alabama, Alabama,...
$ state_abbreviation <fct> AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL, AL...
$ county             <fct> Autauga, Autauga, Baldwin, Baldwin, Barbour, Barbour, Bibb, Bibb, Blount, Blount, Bullock, Bullock...
$ fips               <dbl> 1001, 1001, 1003, 1003, 1005, 1005, 1007, 1007, 1009, 1009, 1011, 1011, 1013, 1013, 1015, 1015, 10...
$ party              <fct> Democrat, Democrat, Democrat, Democrat, Democrat, Democrat, Democrat, Democrat, Democrat, Democrat...
$ candidate          <fct> Bernie Sanders, Hillary Clinton, Bernie Sanders, Hillary Clinton, Bernie Sanders, Hillary Clinton,...
$ votes              <int> 544, 2387, 2694, 5290, 222, 2567, 246, 942, 395, 564, 178, 2451, 156, 2196, 1425, 5011, 312, 2899,...
$ fraction_votes     <dbl> 0.182, 0.800, 0.329, 0.647, 0.078, 0.906, 0.197, 0.755, 0.386, 0.551, 0.066, 0.913, 0.065, 0.921, ...

1. ¿Cuantos candidatos estaban en las primarias?

 results %>%  group_by(candidate) %>% tally()  %>% nrow() 

[1] 16

2.¿cuales candidatos estaban en las primarias?

3. ¿Qué partido obtuvo la mayor cantidad de votos en Florida?

4. ¿Qué condado de Florida es el que tiene la mayor cantidad de votantes?

5. En el estado de florida, que condado tuvo la mayor cantidad de votantes, ¿Qué candidato tuvo la mayor cantidad de votos y de qué partido era?

county_result <- results %>% filter(state_abbreviation=='FL') %>% group_by(county)%>%summarize(votos= sum(votes, na.rm = TRUE)) %>% arrange(desc(votos)) %>% top_n(1)

Selecting by votos

results %>% filter(state_abbreviation=='FL' & county==county_result$county ) %>% group_by(county,party,candidate)%>%summarize(votos= sum(votes, na.rm = TRUE)) %>% mutate(votos_states= county_result$votos ) %>% arrange(desc(votos))

6. ¿Cuantas personas Votaron por Hillary Clinton y cuantas por Donald Trump en estados unidos?

7. ¿Cuál es la probabilidad de que si alguien sea republicano enflorida haya votado por Jeb Bush?

votos_republicanos<-results %>% filter(state_abbreviation == 'FL' & party== 'Republican'   ) %>% group_by(state_abbreviation,party) %>%summarize(votos= sum(votes, na.rm = TRUE)) %>%arrange(desc(votos))
votos_jef=results %>% filter(state_abbreviation == 'FL' & candidate=='Jeb Bush' ) %>% summarize(votos= sum(votes, na.rm = TRUE)) 
valor<-votos_jef$votos/votos_republicanos$votos
print( c('Porcentaje=',as.character(valor),'%'))

[1] "Porcentaje=" "0"           "%"          

8. Dado que una persona voto por Ted Cruz, ¿Cuál es la probabilidad que sea de California?

print( c('Porcentaje=',as.character(valor),'%'))

[1] "Porcentaje="        "0.0189563180668278" "%"                 

9. Dado que una persona es de Texas, ¿Cuál es la probabilidad que vote por Donald Trump?

print( c('Porcentaje=',as.character(valor),'%'))

[1] "Porcentaje="        "0.0569528784012017" "%"                 

10. ¿Qué condado de los Estados Unidos es el que tuvo la mayor cantidad de votantes?