sunburst

R code of the ggplot2 example

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

## Each country takes its share of the turn, continent by continent, largest
## first; each continent spans its countries.
countries <- gapminder |>
  filter(year == 2007) |>
  arrange(continent, desc(pop)) |>
  mutate(end = cumsum(as.numeric(pop)),
         start = lag(end, default = 0),
         middle = (start + end) / 2)
continents <- countries |>
  group_by(continent) |>
  summarise(start = min(start), end = max(end), middle = (start + end) / 2)

## Inner ring: continents; outer ring: countries. Countries of over 200
## million people are named outside the circle.
p <- ggplot() +
  geom_rect(data = continents, aes(xmin = 0.7, xmax = 2, ymin = start, ymax = end, fill = continent),
            colour = "white", linewidth = 0.6) +
  geom_rect(data = countries, aes(xmin = 2, xmax = 2.6, ymin = start, ymax = end, fill = continent),
            colour = "white", linewidth = 0.15) +
  geom_text(data = filter(continents, continent != "Oceania"), aes(x = 1.6, y = middle, label = continent),
            colour = "white", fontface = "bold", size = 2.8) +
  geom_text(data = filter(countries, pop > 2e8),
            aes(x = 3, y = middle, label = country, hjust = ifelse(middle < max(end) / 2, 0, 1)),
            size = 2.8) +
  scale_x_continuous(limits = c(0, 2.6), oob = scales::oob_keep) +
  scale_fill_manual(values = continent_colors) +
  coord_radial(theta = "y", expand = FALSE, clip = "off") +
  labs(title = "Three people in five live in Asia",
       subtitle = "142 countries in 2007, inside their continent",
       x = NULL, y = NULL,
       caption = "Data: Gapminder, via the gapminder R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(legend.position = "none", axis.text = element_blank())