Maestria de Investigacion de Operaciones

Econometria 1

Laboratorio 2

Utilizando el archivo primary_results.csv conteste las siguientes preguntas

1. ¿Cuantos candidatos estaban en las primarias?

no_candidatos <- primarias %>%
  select(candidate) %>%
  distinct() %>%
  count()

Hay 16 candidatos que participaron en las primarias

2. ¿Cuantos candidatos estaban en las primarias?

Hay 16 candidatos que participaron en las primarias

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

Los votos en florida quedaron de la siguiente manera:

votes_fl <- primarias %>%
  filter(state_abbreviation == 'FL') %>%
  group_by(party) %>%
  summarise(votos=sum(votes)) %>%
  transmute(partido= party,votos=format(votos, big.mark = ",")) %>%
  arrange(desc(votos))
votes_fl

EL partido con mas votos en Florida fue el Republican con 2,276,926 votos.

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

Los votantes en los condados de florida quedan de la siguiente manera:

votes_county_fl <- primarias %>%
  filter(state_abbreviation == 'FL') %>%
  group_by(county) %>%
  summarise(votos=sum(votes)) %>%
  transmute(condado=county, votantes=format(votos, big.mark = ",")) %>%
  arrange(desc(votantes))
votes_county_fl

Siendo el condado Miami-Dade con mas vontantes, para un total de 344,894 de vontantes registrados.

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?

El codado Miami-Dade es el que tiene mas votantes, con un total de 344,894 de vontantes registrados.

party_candidate_fl_votes <- primarias %>%
  filter(state_abbreviation == 'FL') %>%
  group_by(party,candidate) %>%
  summarise(votos=sum(votes)) %>%
  transmute(partido=party, candidato=candidate, votos=format(votos, big.mark =",")) %>%
  arrange(desc(votos))
party_candidate_fl_votes

El candidado con mas votos en florida fue Hillary Clinton del partido Democrat con 1,097,400 votos.

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

Los votos por Hillary Clinto y Donald Trump en todo Estados Unidos quedaron de la siguiente manera:

primarias %>%
  filter(candidate %in% c("Hillary Clinton", "Donald Trump")) %>%
  group_by(candidate) %>%
  summarise(votos=sum(votes)) %>%
  transmute(candidato=candidate, votos=format(votos, big.mark =","))

NA

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

votes_fl_republican <- primarias %>%
  filter(party == 'Republican' & state_abbreviation == 'FL') %>%
  summarise(votos=sum(votes))
votes_fl_jeb_bush <- primarias %>%
  filter(candidate == 'Jeb Bush'& state_abbreviation == 'FL' & party == 'Republican') %>%
  summarise(votos=sum(votes))
prob_fl_jeb_bush <- votes_fl_jeb_bush$votos[1]/votes_fl_republican$votos[1]

La probabilidad de que un Republicano que vive en Florida de votar por Jeb Bush es de 0%.

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

votes_ted_cruz <- primarias %>%
  filter(candidate=='Ted Cruz') %>%
  summarise(votos=sum(votes))

votes_ca_ted_cruz <- primarias %>%
  filter(candidate=='Ted Cruz' & state_abbreviation == 'CA') %>%
  summarise(votos=sum(votes))

prob_ca_ted_cruz <- votes_ca_ted_cruz$votos[1]/votes_ted_cruz$votos[1]*100

La probabilidad de que alguien que voto por Ted Cruz sea de California es de 1.8956318%.

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

votes_donal_trump <- primarias %>%
  filter(candidate=='Donald Trump') %>%
  summarise(votos=sum(votes))
votes_tx_donald_trump <- primarias %>%
  filter(candidate=='Donald Trump' & state_abbreviation == 'TX') %>%
  summarise(votos=sum(votes))
prob_tx_donald_trump <- votes_tx_donald_trump$votos[1]/votes_donal_trump$votos[1]*100

La probabilidad de que alguien que voto por Donald Trump sea de Texas es de 5.6952878%.

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

total_county_votes <- primarias %>%
  group_by(state, county) %>%
  summarise(votos=sum(votes)) %>%
  arrange(desc(votos)) %>%
  transmute(estado=state, condado=county, votos=format(votos, big.mark = ","))
total_county_votes

El condado con mas votos es Los Angeles, California para un total de 1,268,622 votantes.