Laboratorio 2

Preguntas del laboratorio

1. ¿Cuantos candidatos estaban en las primarias?
2. ¿Cuantos de los candidatos eran republicanos?
3. ¿Que partido obtuvo la mayor cantidad de votos en Florida?
4. ¿Que condado de Florida es el que tiene la mayor cantidad de votantes?
5. 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?
6. Cuantas personas Votaron por Hillary Clinton y cuantas por Donald 7. Trump en estados unidos?
7. ¿Cual es la probabilidad de que si alguien sea republicano en florida 9. haya votado por Ted Cruz
8. Dado que una persona voto por Ted Cruz, ¿Cual es la probabilidad que sea de California?
9. Dado que un persona es de texas, ¿Cual es la probabilidad que vote por Donald Trump?
10. ¿Que condado de los Estados Unidos es el que tuvo la mayor cantidad de votantes? Quien gano en Los Angeles para los democratas? para los republicanos?
11. ¿Cuantas personas votaron por los republicanos y cuantas por los democartas en todo estados unidos?

Cargamos el dataset

primary <- read_csv("primary_results.csv")
primary <- primary %>%  filter(!candidate %in% c("No Preference","Uncommitted") )
primary

Pregunta 1

¿Cuantos candidatos estaban en las primarias?

p1<-
primary %>% 
  filter(!candidate %in% c("No Preference","Uncommitted")) %>% 
  group_by(candidate, party) %>% 
  summarise(n=1) %>%
  ungroup() %>%
  summarise(tot_candidates=sum(n)) %>% 
  as.matrix() %>% 
  as.numeric()

En total habia 14

Pregunta 2

¿Cuantos de los candidatos eran republicanos?

p2<-
primary %>% 
  group_by(candidate, party) %>% 
  summarise(n=1) %>%
  ungroup() %>%
  filter(party=='Republican') %>% 
  select(n) %>% 
  sum()

En total habia 11 candidatos republicanos.

head(mtcars)

tabla

pregunta	respuesta
pregunta 1	14
pregunta 2	11
pregunta 3	Falta responder

links

• http://www.rstudio.com/wp-content/uploads/2016/03/rmarkdown-cheatsheet-2.0.pdf
• Cheat Sheet

imagenes

logos partidos

Logos

candidatos

candidatos

graficas

glimpse(mtcars)

Observations: 32
Variables: 11
$ mpg  <dbl> 21.0, 21.0, 22.8, 21.4, 18.7, 18.1, 14...
$ cyl  <dbl> 6, 6, 4, 6, 8, 6, 8, 4, 4, 6, 6, 8, 8,...
$ disp <dbl> 160.0, 160.0, 108.0, 258.0, 360.0, 225...
$ hp   <dbl> 110, 110, 93, 110, 175, 105, 245, 62, ...
$ drat <dbl> 3.90, 3.90, 3.85, 3.08, 3.15, 2.76, 3....
$ wt   <dbl> 2.620, 2.875, 2.320, 3.215, 3.440, 3.4...
$ qsec <dbl> 16.46, 17.02, 18.61, 19.44, 17.02, 20....
$ vs   <dbl> 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0,...
$ am   <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,...
$ gear <dbl> 4, 4, 4, 3, 3, 3, 3, 4, 4, 4, 4, 3, 3,...
$ carb <dbl> 4, 4, 1, 1, 2, 1, 4, 2, 2, 4, 4, 3, 3,...

mtcars %>%
  ggplot(aes(x=disp, y=mpg))+
  geom_point()+
  facet_wrap(~carb)