graphique à bulles

Code R de l'exemple ggplot2

set.seed(20260909)
library(ggplot2)
library(gganimate)
library(gapminder)

p <- ggplot(gapminder, aes(x = gdpPercap, y = lifeExp, size = pop, fill = continent)) +
  geom_point(shape = 21, colour = "#535353", alpha = 0.8) +
  scale_x_log10(labels = scales::label_dollar(big.mark = "\u2009")) +
  scale_y_continuous(breaks = lex_break_breaks, expand = lex_break_expand) +
  scale_size_area(max_size = 14, guide = "none") +
  scale_fill_manual(values = continent_colors) +
  guides(fill = guide_legend(override.aes = list(size = 4))) +
  labs(title = "People in richer countries live longer",
       subtitle = "{round(frame_time)}",
       x = "GDP per capita (log scale)",
       y = "Life expectancy (years)", fill = NULL,
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(break_not_zero = "y") +
  theme(plot.subtitle = ggtext::element_textbox_simple(size = 16, margin = margin(b = 6))) +
  transition_time(year) +
  ease_aes("linear")