pyramide des âges

Code R de l'exemple ggplot2

library(ggplot2)
library(dplyr)
library(carData)

## The 1 046 passengers of known age, by ten-year age group: women to the
## left, men to the right.
ages <- TitanicSurvival |>
  filter(!is.na(age)) |>
  mutate(group = cut(age, seq(0, 80, by = 10), right = FALSE, include.lowest = TRUE,
                     labels = paste0(seq(0, 70, by = 10), "–", seq(9, 79, by = 10)))) |>
  count(sex, group) |>
  mutate(side = ifelse(sex == "female", -n, n))

p <- ggplot(ages, aes(x = side, y = group, fill = sex)) +
  geom_col(width = 0.85) +
  geom_vline(xintercept = 0, colour = "#535353", linewidth = 0.4) +
  annotate("text", x = c(-150, 150), y = 7.5, label = c("Women", "Men"),
           colour = c("#9b2367", "#2e7891"), size = 3.2) +
  scale_fill_manual(values = c(female = "#9b2367", male = "#2e7891")) +
  scale_x_continuous(labels = \(x) lex_number(abs(x)), limits = c(-240, 240)) +
  labs(title = "Men in their twenties were the largest group on board",
       subtitle = "The 1 046 Titanic passengers of known age, 1912, by age and sex",
       x = "Passengers", y = "Age (years)",
       caption = "Data: Titanic passenger list, via the carData R package") +
  theme_lex_viz(grid = "x", arrows = "") +
  theme(legend.position = "none")