bump chart

R code of the ggplot2 example

library(ggplot2)
library(dplyr)
library(gapminder)

ranks <- gapminder |>
  filter(country %in% c("Canada", "France", "Germany", "Italy", "Japan",
                        "United Kingdom", "United States")) |>
  group_by(year) |>
  mutate(rank = rank(-gdpPercap)) |>
  ungroup() |>
  mutate(japan = country == "Japan")

p <- ggplot(ranks, aes(x = year, y = rank, group = country, colour = japan)) +
  geom_line(aes(linewidth = japan)) +
  geom_point(size = 2) +
  geom_text(data = filter(ranks, year == min(year)), aes(label = country),
            hjust = 1, nudge_x = -2, size = 3) +
  geom_text(data = filter(ranks, year == max(year)), aes(label = country),
            hjust = 0, nudge_x = 2, size = 3) +
  scale_x_continuous(breaks = seq(1952, 2007, 10), expand = expansion(mult = 0.3)) +
  scale_y_reverse(NULL, breaks = NULL) +
  scale_colour_manual(values = c("#9e9e9e", "#9b2367")) +
  scale_linewidth_manual(values = c(0.6, 1.2)) +
  labs(title = "Japan rose from last to second in GDP per capita,\nthen fell back",
       subtitle = "Rank by GDP per capita among the G7 countries, 1952 to 2007",
       x = NULL,
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(grid = "", arrows = "x") +
  theme(legend.position = "none")