<分区>
我有一个数据框，想在一个特定的列上创建一个饼图，以指示该列中每个级别的百分比。
data <- data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4","a2","a1","a5","a4","a3"),
b=1:13)
换句话说，我想要一个饼图来表示a1,a2,...的出现百分比
此外，我需要在图表上显示百分比。我怎样才能仅使用 ggplot2 包来完成这一切？
如有任何帮助，我们将不胜感激!
最佳答案
尝试以下操作:
library(dplyr)
library(ggplot2)
data <- data.frame(a=c("a1","a1","a2","a3","a1","a2","a3","a4","a2","a1","a5","a4","a3"),b=1:13)
data <- data %>%
group_by(a) %>%
count() %>%
ungroup() %>%
mutate(per=`n`/sum(`n`)) %>%
arrange(desc(a))
data$label <- scales::percent(data$per)
ggplot(data=data)+
geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+
coord_polar("y", start=0)+
theme_void()+
geom_text(aes(x=1, y = cumsum(per) - per/2, label=label))
我还包括另一个版本的饼图，翻转饼图切片和标签的顺序(如果这是你的意思):
ggplot(data=data)+
geom_bar(aes(x="", y=per, fill=a), stat="identity", width = 1)+
coord_polar("y", start=0, direction = -1)+
theme_void()+
geom_text(aes(x=1, y = cumsum(per) - per/2, label=label))
关于r - 如何使用 ggplot2 创建带有百分比标签的饼图？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/45657990/