graphique Marimekko

Code R de l'exemple ggplot2

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

## Each island is as wide as its share of the penguins; within it, each
## species is as tall as its share of the island.
islands <- penguins |>
  count(island, name = "total") |>
  mutate(xmax = 100 * cumsum(total) / sum(total),
         xmin = lag(xmax, default = 0))

blocks <- penguins |>
  count(island, species) |>
  left_join(islands, by = "island") |>
  group_by(island) |>
  mutate(ymax = 100 * cumsum(n) / total,
         ymin = lag(ymax, default = 0)) |>
  ungroup()

p <- ggplot(blocks) +
  geom_rect(aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = species),
            colour = "white", linewidth = 0.8) +
  geom_text(aes(x = (xmin + xmax) / 2, y = (ymin + ymax) / 2, label = species),
            colour = "white", fontface = "bold", size = 3.3) +
  scale_x_continuous(breaks = (islands$xmin + islands$xmax) / 2, labels = islands$island,
                     expand = c(0, 0)) +
  scale_y_continuous(labels = lex_number, expand = c(0, 0)) +
  labs(title = "Only Adelie penguins were sampled on all three islands",
       subtitle = "Width: island's share of the 344 penguins; height: species' share of the island",
       x = NULL, y = "Share of the island (%)",
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(grid = "", arrows = "y") +
  theme(legend.position = "none")