ggplot 圆饼图的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我用下面的code画出了一个圆饼图
df <- data.frame(
      variable = c('a', 'b', 'c', 'b'),
      value = c(10,20,30,5)
    )
    p <- ggplot(df, aes(x = "", y = value, fill = variable))
    p + geom_bar(width = 1, stat = "identity", position="fill") +
      scale_fill_manual(values = c('red', 'blue', 'green', 'yellow')) +
      coord_polar("y", start = 0) +
      labs(title = "Pac man")

里面蓝色的区域有2个，有没有什么办法能够合并两个蓝色区域？
因为数据里面有很多这样的情况，谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：gplot plot GPL code COD

你合并 variable = c('a', 'b', 'c', 'b'),
      value = c(10,20,30,5)

里的蓝色，就可以了。

variable = c('a', 'b', 'c'),
      value = c(10,25,30)

1. rm(list=ls())
   
2. library(ggplot2)
   
3. 
   
4. df <- data.frame(
   
5. variable = c('a', 'b', 'c', 'b'),
   
6. value = c(10,20,30,5)
   
7. )
   
8. 
   
9. 
   
10. #把数据按照variable变量加总
    
11. df1 <- aggregate(value ~ variable, data = df, FUN = "sum")
    
12. 
    
13. p <- ggplot(df1, aes(x = "", y = value, fill = variable))
    
14. p + geom_bar(width = 1, stat = "identity", position="fill") +
    
15. scale_fill_manual(values = c('red', 'blue', 'green', 'yellow')) +
    
16. coord_polar("y", start = 0) +
    
17. labs(title = "Pac man")

复制代码

蓝色 发表于 2015-3-15 09:59

不愧是大师，你的解决方案具有通用性。

蓝色 发表于 2015-3-15 09:59

谢谢蓝色大师和xiaohong23.
另外还想请教一个小问题画出来的圆饼图上面有四个数字
0.0/1.0   0.25   0.5 0.75
有没有办法不显示这四个数字，显示每种颜色所占的百分比？
谢谢