Elecciones

¿Cuantos candidatos estaban en las primarias?

allCandidates <- electionsData %>%
       select(candidate) %>%
       filter(candidate != "Uncommitted" & candidate != "No Preference") %>%
       distinct()

Hay 14 candidatos (mas las opciones Uncommitted y No Preference)

¿Cuantos de los candidatos eran republicanos?

nrow(electionsData %>%
  filter(party == "Republican") %>%
  select(candidate) %>%
  distinct())

[1] 11

11 candidatos eran republicanos.

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

electionsData %>%
  filter(state == "Florida") %>%
  select(party, votes) %>%
  count(party, wt=votes)

Los republicanos obtuvieron 2276926 votos

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

electionsData %>%
  filter(state == "Florida") %>%
  select(county, votes) %>%
  count(county, wt=votes) %>%
  arrange(-n)

Miami-Dade, con 344894 votantes.

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?

electionsData %>%
  filter(county == "Miami-Dade") %>%
  select(candidate, votes, party) %>%
  arrange(-votes)

Hillary Clinton, del partido republicano, con 129467 votos.

Cuantas personas Votaron por Hillary Clinton y cuantas por Donald Trump en Estados Unidos?

electionsData %>%
  filter(candidate == "Hillary Clinton" | candidate == "Donald Trump") %>%
  select(candidate, votes) %>%
  count(candidate, wt = votes)

13302541 personas votaron por Trump y 15692452 votaron por Clinton.

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

electionsData %>%
  filter(party == "Republican" & state == "Florida") %>%
  select(candidate, votes) %>%
  count(candidate, wt = votes)

No hay votos republicanos por Jeb Bush.

Dado que una persona voto por Ted Cruz, ¿Cual es la probabilidad que sea de California?

calTed <- electionsData %>%
  filter(candidate == "Ted Cruz" & state == "California") %>%
  select(votes) %>%
  count(wt = votes)

allTed <- electionsData %>%
  filter(candidate == "Ted Cruz") %>%
  select(votes) %>%
  count(wt = votes)

calTed / allTed

1.89%

Dado que un persona es de Texas, ¿Cual es la probabilidad que vote por Donald Trump?

trumpTx <- electionsData %>%
  filter(candidate == "Donald Trump" & state == "Texas") %>%
  select(votes) %>%
  count(wt = votes)

allTx <- electionsData %>%
  filter(state == "Texas") %>%
  select(votes) %>%
  count(wt = votes)

trumpTx / allTx

18.27%

¿Que condado de los Estados Unidos es el que tuvo la mayor cantidad de votantes?

electionsData %>%
  select(county, votes) %>%
  count(county, wt = votes) %>%
  filter(n == 0)

electionsData %>%
  select(county, votes) %>%
  count(county, wt = votes) %>%
  filter(n == 1)

69 condados con cero votos y 53 condados con 1 voto

Quien gano en Los Angeles para los democratas? para los republicanos?

electionsData %>%
  filter(county == "Los Angeles") %>%
  select(candidate, party, votes) %>%
  group_by(party) %>%
  top_n(1)

Selecting by votes

Hillary Clinton gano para los democratas y Donald Trump para los republicanos

¿Cuantas personas votaron por los republicanos y cuantas por los democartas en todo estados unidos?

electionsData %>%
  select(party, votes) %>%
  count(party, wt = votes)

27660501 para los democratas y 29098686 para los republicanos