Elecciones -Laboratorio 2-

Alejandra Cermeño/12002294

El objetivo del siguiente laboratorio es analizar data haciendo uso de la librería “dplyr”

library(dplyr)
setwd("~/R/VotesEEUU")
votes_data <- read.csv(file = "primary_results.csv")
str(votes_data)

'data.frame':   24611 obs. of  8 variables:
 $ state             : Factor w/ 49 levels "Alabama","Alaska",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ state_abbreviation: Factor w/ 49 levels "AK","AL","AR",..: 2 2 2 2 2 2 2 2 2 2 ...
 $ county            : Factor w/ 2633 levels "Abbeville","Abbot",..: 104 104 115 115 128 128 198 198 216 216 ...
 $ fips              : num  1001 1001 1003 1003 1005 ...
 $ party             : Factor w/ 2 levels "Democrat","Republican": 1 1 1 1 1 1 1 1 1 1 ...
 $ candidate         : Factor w/ 16 levels " No Preference",..: 4 8 4 8 4 8 4 8 4 8 ...
 $ votes             : int  544 2387 2694 5290 222 2567 246 942 395 564 ...
 $ fraction_votes    : num  0.182 0.8 0.329 0.647 0.078 0.906 0.197 0.755 0.386 0.551 ...

head(votes_data)

1. ¿Cuántos candidatos estaban en las primarias?

candidate <- length(levels(votes_data$candidate))
candidate

[1] 16

R: Habían 16 candidatos

2. ¿Cuántos de los candidatos eran republicanos?

republicans<- filter(votes_data,party=="Republican")%>%
     group_by(candidate)%>%
     summarise()%>%
     nrow()
republicans

[1] 11

R: De esos 16 candidatos, 11 eran republicanos

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

Florida<- (filter(votes_data,state=="Florida")%>%
    group_by(party)%>%
    summarise(total = sum(votes))%>%
    arrange(desc(total)))[1,]
Florida

R: Los republicanos tuvieron más votos, siendo estos 2,276,926 votos

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

florida_country <- (filter(votes_data,state=="Florida")%>%
  group_by(county)%>%
  summarise(total = sum(votes))%>%
  arrange(desc(total)))[1,]
florida_country

R: Miami-Dade es el condado de Florida con mayor candidad de votantes

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

Miami_Dade <- (filter(votes_data,state=="Florida",county=="Miami-Dade")%>%
  group_by(candidate,party)%>%
  summarise(votes = sum(votes))%>%
  arrange(desc(votes)))[1,]
  
Miami_Dade

R: En Florida Hillary Clinton, del partido demócrata tuvo mayor cantidad de votos, siendo estos 129,467 votos

6. ¿Cuántas personas Votaron por Hillary Clinton y cuántas por Donald Trump en Estados Unidos?

Hillary_Trump <- filter(votes_data,candidate=="Hillary Clinton"| candidate=="Donald Trump")%>%
    group_by(candidate)%>%
    summarise(votes = sum(votes))
Hillary_Trump

R: Hillary Clinton obtuvo 15,692,452 votos y Donald Trump 13,302,541 votos en todos los Estados Unidos

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

Jeb_Bush_Fl <- filter(votes_data, party=="Republican", state=="Florida",candidate=="Jeb Bush")%>%
    summarise(prob = sum(votes)) 
all_Florida <- filter(votes_data, party=="Republican", state=="Florida")%>%
    summarise(prob = sum(votes))
Prob_JBush_FL <- Jeb_Bush_Fl/all_Florida
Prob_JBush_FL

R: La probabilidad de que alguien republicano de Florida haya votado por Jeb Bush es de 0

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

Ted_Cruz <- filter(votes_data,candidate=="Ted Cruz")%>%
    summarise(prob = sum(votes))
Ted_Cruz_Cal <- filter(votes_data,candidate=="Ted Cruz",state =="California")%>%
    summarise(prob = sum(votes))
Prob_TedC_Cal <- Ted_Cruz_Cal/Ted_Cruz
Prob_TedC_Cal

R: La probabilidad de que una persona de California haya votado por Ted Cruz es de 0.0189

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

all_Texas <- filter(votes_data,state=="Texas")%>%
    summarise(prob = sum(votes))
Trump_Texas <- filter(votes_data,state=="Texas",candidate=="Donald Trump")%>%
    summarise(prob = sum(votes))
Prob_TrumpTex <- Trump_Texas/all_Texas
Prob_TrumpTex

La probabilidad de que una persona de Texas haya votado por Donald Trump es de 0.1826

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

total_county <- (group_by(votes_data,county)%>%
    summarise(total = sum(votes))%>%
      arrange(desc(total)))[1,]
total_county

R: Los Ángeles es el estado con mayor cantidad de votantes, siendo estos 1,268,622

11. ¿Quién ganó en Los Ángeles para los demócratas?

LA_dem <- (filter(votes_data,county=="Los Angeles",party=="Democrat")%>%
    group_by(candidate)%>%
    summarise(total = sum(votes))%>%
    arrange(desc(total)))[1,]
LA_dem

¿Para los republicanos?

LA_rep <- (filter(votes_data,county=="Los Angeles",party=="Republican")%>%
    group_by(candidate)%>%
    summarise(total = sum(votes))%>%
    arrange(desc(total)))[1,]
LA_rep

R: Para los demóctratas en Los Ángeles ganó Hillary Clinton con 590,502 votos y para los republicanos ganó Donald Trump con 179,130 votos.

12. ¿Cuántas personas votaron por los republicanos y cuantas por los demócratas en todo Estados Unidos?

all_USA <- group_by(votes_data,party)%>%
    summarise(total = sum(votes))
all_USA

R: En todos los Estados Unidos, 27,660,501 de personas votaron por el partido demócrata y 29,098,686 por el partido republicano.