heatmap

R code of the ggplot2 example

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

americas <- gapminder |>
  filter(continent == "Americas") |>
  group_by(country) |>
  filter(pop[year == max(year)] >= 9e6) |>
  mutate(last = lifeExp[year == max(year)]) |>
  ungroup() |>
  mutate(country = reorder(country, last))

p <- ggplot(americas, aes(x = year, y = country, fill = lifeExp)) +
  geom_tile(colour = "white", linewidth = 0.3) +
  scale_x_continuous(breaks = seq(1952, 2007, 10), expand = c(0, 0)) +
  scale_fill_continuous(labels = lex_number) +
  labs(title = "Life expectancy rose everywhere; Bolivia stayed last",
       subtitle = "The 14 countries of the Americas with over 9 million people in 2007, sorted by life expectancy in 2007",
       x = NULL, y = NULL, fill = "Life expectancy (years)",
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(base_size = 8, grid = "", arrows = "x")