donut chart

R code of the ggplot2 example

library(ggplot2)
library(dplyr)
library(datarium)

## Chest pain type, coded 1 to 4 in the UCI files. Four types: a legend,
## with the share of each.
pain <- heartdisease |>
  count(cp) |>
  mutate(type = c("Typical angina", "Atypical angina", "Non-anginal pain", "No chest pain")[cp],
         type = paste0(type, ", ", scales::percent(n / sum(n), accuracy = 1)),
         type = factor(type, levels = type))

p <- ggplot(pain, aes(x = 2, y = n, fill = type)) +
  geom_col(width = 1, colour = "white", linewidth = 0.5) +
  annotate("text", x = 0.5, y = 0, label = paste(sum(pain$n), "patients"),
           size = 3.5, colour = "#535353") +
  coord_radial(theta = "y", reverse = "theta", expand = FALSE) +
  scale_x_continuous(limits = c(0.5, 2.5)) +
  labs(title = "Over half the patients reported no chest pain",
       subtitle = "Assessed for coronary artery disease",
       x = NULL, y = NULL, fill = NULL,
       caption = "Data: Janosi et al. 1989 (UCI, CC BY 4.0), via datarium") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(legend.position = "right", axis.text = element_blank())