Guaguas

pacman::p_load(guaguas, dplyr, 
               stringr, ggplot2, 
               forcats, hrbrthemes, ggthemes)

guaguas %>%
  filter(nombre %in% c("Sergio", "Christian", "Nicolás"),
         anio >= 1925 & anio <= 2020) %>%
  ggplot(aes(anio, n, color = fct_reorder2(nombre, n, anio))) +
  geom_line() +
  scale_color_colorblind() +
  labs(
    x = "Año",
    y = "Total inscripciones",
    color = "Nombre",
    title = "Inscripciones de 'Sergio', 'Christian' y 'Nicolás'") +
  theme_ipsum()