pie chart

R code of the ggplot2 example

library(ggplot2)
library(dplyr)
library(tidyr)
library(HistData)

deaths <- Nightingale |>
  summarise(across(c(Disease, Wounds, Other), sum)) |>
  pivot_longer(everything(), names_to = "cause", values_to = "n") |>
  mutate(cause = factor(cause, levels = cause),
         label = paste0(cause, "\n", scales::percent(n / sum(n), accuracy = 1)))

p <- ggplot(deaths, aes(x = "", y = n, fill = cause)) +
  geom_col(width = 1, colour = "white", linewidth = 0.5) +
  geom_text(aes(x = 1.8, label = label, colour = cause), position = position_stack(vjust = 0.5),
            size = 3.5, lineheight = 0.9) +
  coord_polar(theta = "y", direction = -1) +
  labs(title = "Disease caused four in five deaths",
       subtitle = "British army in the East, 1854–1856",
       x = NULL, y = NULL,
       caption = "Data: Nightingale 1858, via the HistData R package") +
  theme_lex_viz(grid = "", arrows = "") +
  theme(legend.position = "none", axis.text = element_blank())