lollipop chart

R code of the ggplot2 example

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

body_mass <- penguins |>
  filter(!is.na(sex)) |>
  group_by(species, island, sex) |>
  summarise(mass = mean(body_mass_g), .groups = "drop") |>
  mutate(group = paste(species, island, sex, sep = ", "),
         group = reorder(group, mass))

p <- ggplot(body_mass, aes(x = mass, y = group, colour = species)) +
  geom_segment(aes(x = 0, xend = mass, yend = group)) +
  geom_point(size = 2.5) +
  scale_x_continuous(labels = lex_number, expand = expansion(mult = c(0, 0.05))) +
  labs(title = "Males outweigh females in every species, on every island",
       subtitle = "Mean body mass by species, island and sex",
       x = "Mean body mass (g)", y = NULL,
       caption = "Data: palmerpenguins (Horst, Hill & Gorman 2020)") +
  theme_lex_viz(grid = "x", arrows = "x") +
  theme(legend.position = "none")