diagramme en barres empilées

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(palmerpenguins)

## Each species ends exactly one bar: its name goes after that bar.
ends <- penguins |>
  count(island, species) |>
  group_by(island) |>
  summarise(n = sum(n), species = last(species))

p <- ggplot(penguins, aes(y = island, fill = species)) +
  geom_bar(width = 0.7, position = position_stack(reverse = TRUE)) +
  geom_text(data = ends, aes(x = n, label = species, colour = species),
            hjust = 0, nudge_x = 3, size = 3.5) +
  scale_x_continuous(labels = lex_number, expand = expansion(mult = c(0, 0.2))) +
  labs(title = "Adelie is the only species on all three islands",
       x = "Number of penguins", y = NULL,
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(grid = "x", arrows = "x") +
  theme(legend.position = "none")