spine chart

R code of the ggplot2 example

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

## Each group split on either side of the spine: females left, males right.
sexes <- penguins |>
  filter(!is.na(sex)) |>
  count(species, island, sex) |>
  mutate(group = paste(species, "on", island),
         side = ifelse(sex == "female", -n, n))

p <- ggplot(sexes, aes(x = side, y = group, fill = sex)) +
  geom_col(width = 0.7) +
  geom_vline(xintercept = 0, colour = "#535353", linewidth = 0.4) +
  annotate("text", x = c(-30, 30), y = 5.6, label = c("Females", "Males"),
           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(-65, 65)) +
  scale_y_discrete(limits = rev, expand = expansion(add = c(0.6, 1))) +
  labs(title = "Every group has nearly as many females as males",
       subtitle = "333 penguins of known sex, Palmer Archipelago",
       x = "Penguins", y = NULL,
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(grid = "x", arrows = "") +
  theme(legend.position = "none")