使用 ggplot2 在 R 中制作花式饼图

Question

我下面有一个饼图，我想在每个饼之间留出额外的白色 space 并在每个饼中粘贴每个字母的值 (A=25)。如何解决这个问题？非常感谢。

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")

Answer 1

你可以这样做：

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")

Answer 2

也许 base R 中的 3D 饼图可以将 explode 参数设置为 true，例如

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

使用 ggplot2 在 R 中制作花式饼图

fancy pie chart in R using ggplot2

r

ggplot2

plotly