petits multiples

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(gapminder)

medians <- gapminder |>
  group_by(continent, year) |>
  summarise(lifeExp = median(lifeExp), .groups = "drop")

p <- ggplot(gapminder, aes(x = year, y = lifeExp)) +
  geom_line(aes(group = country), colour = "#bdbdbd", linewidth = 0.25) +
  geom_line(data = medians, colour = "#9b2367", linewidth = 1) +
  facet_wrap(vars(continent), nrow = 1) +
  scale_x_continuous(breaks = c(1960, 2000)) +
  scale_y_continuous(labels = lex_number, breaks = lex_break_breaks, expand = lex_break_expand) +
  labs(title = "Life expectancy rose on every continent",
       subtitle = "One gray line per country, the continent median in color, 1952 to 2007",
       x = NULL, y = "Life expectancy (years)",
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(base_size = 9, grid = "y", break_not_zero = "y")