graphique en courbes

Code R de l'exemple ggplot2

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

countries <- gapminder |>
  filter(country %in% c("Brazil", "France", "India"))

p <- ggplot(countries, aes(x = year, y = lifeExp, colour = country)) +
  geom_line(linewidth = 0.8) +
  geom_text(data = filter(countries, year == max(year)), aes(label = country),
            hjust = 0, nudge_x = 1.5, size = 3.5) +
  scale_x_continuous(expand = expansion(mult = c(0.05, 0.15))) +
  scale_y_continuous(labels = lex_number, breaks = lex_break_breaks, expand = lex_break_expand) +
  labs(title = "Life expectancy rose in all three countries,\nand the gap between them nearly halved",
       subtitle = "1952 to 2007, every five years",
       x = NULL, y = "Life expectancy (years)",
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(grid = "y", break_not_zero = "y") +
  theme(legend.position = "none")