carrera_barras_preparar_datos.R

# crear datos tidy u ordenados
population_tidy <- population_data%>%
  # filtrar para algunos paises de HispanoAmérica
  filter(country %in% c('Argentina',
                        'Chile',
                        'Colombia',
                        'Ecuador',
                        'Mexico',
                        'Panama',
                        'Peru',
                        'Spain',
                        'Uruguay',
                        'Venezuela')) %>%
  # juntar años el filas o renglones
  gather(key = year, value = population, -1) %>%
  # mutar años como entero y población en millones
  mutate(year = as.integer(year),
         population10 = population/1000000) %>%
  # filtrar por años
  filter(year > 1940,
         year < 2020) %>%
  # agrupar y crear ranking para ordenar
  group_by(year) %>%
  mutate(ordering = min_rank(population10) * 1.0) %>%
  ungroup() %>%
  # filtrar primeros 5 paises por año
  filter(ordering >= 6)