fancy pie chart in R using ggplot2

Question

I have a pie chart below, and I would like to leave extra white space between each pie and paste the value of each letter in each pie (A=25). how to get around this? many thanks in advance.

library(ggplot2)
library(dplyr)

# Create Data
data <- data.frame(
  group=LETTERS[1:5],
  value=c(13,7,9,21,2)
)

# Compute the position of labels
data <- data %>% 
  arrange(desc(group)) %>%
  mutate(prop = value / sum(data$value) *100) %>%
  mutate(ypos = cumsum(prop)- 0.5*prop )

# Basic piechart
ggplot(data, aes(x="", y=prop, fill=group)) +
  geom_bar(stat="identity", width=10, color="white") +
  coord_polar("y", start=0) +
  theme_void() + 
  theme(legend.position="none") +
  
  
  geom_text(aes(y = ypos, label =  round(prop,2) ), color = "white", size=4) +
  scale_fill_brewer(palette="Set1")

see also https://stackoverflow.com/questions/33594642/beautiful-pie-charts-with-r — tjebo, May 14 '22 at 20:39
very related https://stackoverflow.com/questions/35175606/how-to-explode-donut-chart-slices-using-r-ggplot2 — tjebo, May 14 '22 at 20:40

score 2 · Accepted Answer · answered May 14 '22 at 17:29

You could do:

ggplot(data, aes(x="", y=prop, fill=group)) +
  geom_bar(stat="identity", width=10, size = 3, color = "white") +
  coord_polar("y", start=0) +
  theme_void() + 
  theme(legend.position="none") +
  geom_text(aes(y = ypos, label =  paste(group, round(prop,2), sep = "\n")), 
            color = "white", size=4, nudge_x = 3) +
  scale_fill_brewer(palette="Set1")

score 0 · Answer 2 · edited May 14 '22 at 18:49

0

Perhaps 3D pie chart in base R can work with explode argument set to true, e.g.

pie3D(num_data, labels = num_data, explode = 0.25)

edited May 14 '22 at 18:49

Martin Gal

16,640
5
21
39

answered May 14 '22 at 17:38

Rys

77
8

fancy pie chart in R using ggplot2

2 Answers2