Elecciones primarias

DATA

primary <- read.csv(file = "primary_results.csv")

LIBRERIAS

library(dplyr)
library(ggplot2)

CODIGO

¿Cuantos candidatos estaban en las primarias?

#--------------------------------------------------------------------------------------------------
pimary %>%
  select(candidate) %>%
  group_by(candidate) %>%
  summarise() %>%
  nrow()

[1] 16

————————————————————————————————–

¿Cuantos de los candidatos eran republicanos?

pimary %>%
  select(candidate, party) %>%
  filter(party == "Republican") %>%
  group_by(candidate) %>%
  summarise() %>%
  nrow()

[1] 11

#--------------------------------------------------------------------------------------------------

¿Que partido obtuvo la mayor cantidad de votos en Florida?

pimary %>%
  select(state, party, votes) %>%
  filter(state == "Florida") %>%
  group_by(party) %>%
  summarise(x =sum(votes)) %>%
  arrange(desc(x)) %>%
  head(1)

#-------------------------------------------------------------------------------------------------

¿Que condado de Florida es el que tiene la mayor cantidad de votantes??

pimary %>%
  select(state, county, votes) %>%
  filter(state == "Florida") %>%
  group_by(county) %>%
  summarise(y = sum(votes)) %>%
  arrange(desc(y)) %>%
  head(1)

  
#--------------------------------------------------------------------------------------------------

En el condado de florida que tuvo la mayor cantidad de votantes,

¿Que candidato tuvo la mayor cantidad de votos y de que partido era?

pimary %>%
  select(state, county, votes, party, candidate) %>%
  filter(state == "Florida" & county == "Miami-Dade") %>%
  group_by(candidate, party) %>%
  summarise(y = sum(votes)) %>%
  arrange(desc(y)) %>%
  select(candidate, party) %>%
  head(1)

#--------------------------------------------------------------------------------------------------

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

pimary %>%
  select(votes, candidate) %>%
  filter(candidate == "Hillary Clinton" | candidate == "Donald Trump") %>%
  group_by(candidate) %>%
  summarise(z = sum(votes)) %>%
  arrange(desc(z)) 

  
#--------------------------------------------------------------------------------------------------

¿Cual es la probabilidad de que si alguien sea republicano en florida haya votado por Jeb Bush

pimary %>%
  select(votes, candidate, party, state) %>%
  filter(state == "Florida", party == "Republican", candidate == "Jeb Bush") %>%
  summarise(e = sum(votes))

primary %>%
  filter(!trimws(candidate) %in% c("No Preference", "Uncommitted") ) %>%
  ggplot(aes(x=party, y=votes, col=candidate)) +
  geom_point() +
  geom_jitter() +
  facet_wrap(~state, scales = "free")

primary %>%
  group_by(state, party, candidate) %>%
  summarise(tot_votos = sum(votes, na.rm = TRUE)) %>%
  ggplot(aes(x=party, y=tot_votos)) +
  geom_point() +
  facet_grid(state~candidate, scales = "free")+
  ggtitle("Intension de voto por partido por estado") +
  ylab("Total de votos") +
  xlab("Partido")