[R数据可视化之饼图]

Posted 2021-04-28 我们一起学过的R语言

不管怎么说，我们在工作中还是会经常用到饼图。笔者已多年未使用excel作图了，基于过去的经验，excel生成的饼图远不及R生成的饼图漂亮。闲话少说，上图。

（饼图）

这个图在展示时，作了排序处理，从图例上看，一眼就知道所占比例最大的是Ideal。不知道现在最新版的excel能否实现这样的要求，有一点可以肯定，那就是你完全可以在R中轻松实现，而且不复杂，其代码如下：

library(ggplot2)diamonds$cut <- reorder(diamonds$cut,diamonds$cut,function(x) desc(length(x))) #对修改因子水平的排列顺序prop <- prop.table(table(diamonds$cut)) #计算各因子水平的百分比pie <- ggplot(data = diamonds, aes(x="cut", fill = cut)) + geom_bar(stat="count", width = 0.5) +  geom_text(stat="count",aes(label = paste0(levels(diamonds$cut),"\n(",percent(..count../sum(..count..),accuracy = 0.01),")")),  size=3.5, fontface = "bold", color = "white", position=position_stack(vjust = 0.55)) +  coord_polar(theta = "y") + scale_fill_manual(values = hcl.colors(5), breaks = names(prop), labels=paste0(names(prop), "(", percent(as.vector(prop), accuracy = 0.01), ")")) +  labs(x = NULL, y = NULL) + theme(panel.background = element_blank(), #去掉网格 axis.text = element_blank(), #去掉轴文本 axis.ticks = element_blank()) #去掉刻度print(pie)