guaguas

guaguas.R

source("00-leer-datos.R")

library(dplyr)

# ejemplo 1: filtrar, agrupar y contar
guaguas %>%  
  filter(anio >= 1990 & nombre == "Bryan") %>% 
  group_by(anio) %>% 
  count()

# ejemplo: lo mismo hecho de otra forma
guaguas %>%  
  filter(anio >= 1990 & nombre == "Bryan") %>% 
  group_by(anio) %>% 
  summarise(cuenta = sum(n))

# ejemplo 2: crear tabla a partir de filtros y summarise
# objetivo: devolver el nombre y la cuenta del nombre con mayor
# cant de registros por anio
maxfemenino <- guaguas %>% 
  filter(sexo == "F") %>% 
  group_by(anio) %>% 
  filter(n == max(n))

maxfemenino

# ejemplo 3: agrupar y desagrupar
# objetivo: filtrar y dejar registros desde el anio 2000
# luego calcular % del nombre por anio para sexo masculino
maxmasculino2000 <- guaguas %>% 
  filter(sexo == "M" & anio >= 2000) %>% 
  group_by(anio) %>% 
  mutate(prop_anio_sm = n / sum(n))

maxmasculino2000

# ejemplo 4: calcular proporcion global
maxmasculino2000 %>% 
  ungroup() %>% 
  mutate(prop_global = n / sum(n))

# ejemplo 5: agrupar por dos o mas variables y ordenar
guaguas %>% 
  group_by(anio,sexo) %>% 
  arrange(-n)