Donut chart with 3 levels in R

Question

trying to replicate the donut chart in the following post (first answer: Multiple, dependent-level sunburst/doughnut chart using ggplot2) looking for a solution with a donut chart that looks more or less like that: How would I need to adapt the following code to get such a plot:

df <- "name  type    value
Total   all     100
Planerlöse   Total 54
Total   all   100
Abgeltung   Thurgau   30.24
Abgeltung   Bund     23.8
Abgeltung   Kanton Thurgau Netto   20.23
Abgeltung   Gemeinden   9.98" %>% read_table2() %>%
  filter(type != "all") %>%
  mutate(name = as.factor(name) %>% fct_reorder(value, sum)) %>%
  arrange(name, value) %>%
  mutate(type = as.factor(type) %>% fct_reorder2(name, value))

lvl0 <- tibble(name = "Parent", value = 0, level = 0, fill = NA)

lvl1 <- df %>%
  group_by(name) %>%
  summarise(value = sum(value)) %>%
  ungroup() %>%
  mutate(level = 1) %>%
  mutate(fill = name)

lvl2 <- df %>%
  select(name = type, value, fill = name) %>%
  mutate(level = 2)


lvl3 <- df %>%
  select(name = type, value, fill = name) %>%
  mutate(level = 3)


bind_rows(lvl0, lvl1, lvl2, lvl3) %>%
  mutate(name = as.factor(name) %>% fct_reorder2(fill, value)) %>%
  arrange(fill, name) %>%
  mutate(level = as.factor(level)) %>%
  ggplot(aes(x = level, y = value, fill = fill, alpha = level)) +
  geom_col(width = 1, color = "gray90", size = 0.25, position = position_stack()) +
  geom_text(aes(label = name), size = 2.5, position = position_stack(vjust = 0.5)) +
  coord_polar(theta = "y") +
  scale_alpha_manual(values = c("0" = 0, "1" = 1, "2" = 0.7, "3"=0.4), guide = F) +
  scale_x_discrete(breaks = NULL) +
  scale_y_continuous(breaks = NULL) +
  scale_fill_brewer(palette = "Dark2", na.translate = F) +
  labs(x = NULL, y = NULL) +
  theme_minimal()

Thank you for any help!

If you're happy to use the `plotly` package, then this link shows several different ways that are quite straightforward to follow and adapt: https://plotly.com/r/sunburst-charts/ — Paul Stafford Allen, Jul 17 '23 at 06:51
Hi, thanks for the link. I already tried that option however failed because I was not able to add the values correctely, is there a further explanation how to do that? — user11841097, Jul 18 '23 at 05:53

score 1 · Accepted Answer · answered Jul 17 '23 at 07:33

Here's a simplified version of the code you posted, which generates a three layered donut chart:

df <- read.table(text="name  type    value
Planerlöse   Total 54
Abgeltung   Thurgau   30.24
Abgeltung   Bund     23.8
Abgeltung   'Kanton Thurgau Netto'   20.23
Abgeltung   Gemeinden   9.98", header=T)

lvl0 <- tibble(name = "Parent", value = 0, level = 0, fill = NA)

lvl1 <- df %>%
  group_by(name) %>%
  summarise(value = sum(value)) %>%
  ungroup() %>%
  mutate(level = 1, 
         fill = name)

lvl2 <- df %>%
  select(name = type, value, fill = name) %>%
  mutate(level = 2)


lvl3 <- df %>%
  select(name = type, value, fill = name) %>%
  mutate(level = 3)


bind_rows(lvl0, lvl1, lvl2, lvl3) %>%
  mutate(fill = ifelse(is.na(fill), "Total", fill),
         name = as.factor(name),
         level = as.factor(level)) %>%
  arrange(fill, name) %>%
  ggplot(aes(x = level, y = value, fill = fill, alpha = level)) +
  geom_col(width = 1, color = "gray90", size = 0.25, position = position_stack()) +
  geom_text(aes(label = name), size = 2.5, position = position_stack(vjust = 0.5)) +
  coord_polar(theta = "y") +
  scale_alpha_manual(values = c("0" = 0, "1" = 1, "2" = 0.7, "3"=0.4), guide = F) +
  scale_x_discrete(breaks = NULL) +
  scale_y_continuous(breaks = NULL) +
  scale_fill_brewer(palette = "Dark2", na.translate = F) +
  labs(x = NULL, y = NULL) +
  theme_minimal()

the picture you posted is of a sunburst plot, but the title asks for a donut plot, so idk what you want :') — Mark, Jul 17 '23 at 07:37
You are completely right, I confused the two plot types and meant a sunburst. Thank you for the hint. — user11841097, Jul 17 '23 at 12:59
Would it be possible to remove those segments that show the same as the level below so that the plot resembles the one on the top designed in Indesign? — user11841097, Jul 17 '23 at 13:27

Donut chart with 3 levels in R

1 Answers1