请问这种图片能用ggplot2做吗？求解

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：ggplot2 gplot plot GPL

用EChart做较好

环形图是最差的图形类型，除了咨询公司报告，正儿八经的研究报告中都不会用到。。。

杜神最近刚写篇文章，怎么用ggplot做这种图。就是barchart +极坐标转化

杜神最近刚写篇文章，怎么用ggplot做这种图。就是barchart +极坐标转化

kkwei 发表于 2017-9-7 10:00
环形图是最差的图形类型，除了咨询公司报告，正儿八经的研究报告中都不会用到。。。

以后想去咨询公司干，哈哈

jameschin007 发表于 2017-9-7 11:42
杜神最近刚写篇文章，怎么用ggplot做这种图。就是barchart +极坐标转化

谢谢啦

研究来研究去，没有找到很优雅的方法实现，暂时用笨办法勉强模仿一下，等待高人

1. myData <- data.frame(age = c("14岁以下", "15-19岁", "20-24岁", "25-29岁", "30-34岁", "35岁以上"),
   
2.                      level = c(0.03, 0.175, 0.266, 0.264, 0.182, 0.083))
   
3. 
   
4. windowsFonts(myFont = windowsFont("微软雅黑"))
   
5. 
   
6. myData %>%
   
7.   ggplot(aes(x = level, y = age)) +
   
8.   ylim(0, 7) +
   
9.   xlim(0, 1) +
   
10.   annotate(geom = "rect", xmin = 0, xmax = 1, ymin = 0.1 + 1:6, ymax = 0.9 + 1:6, fill = "grey90") +
    
11.   annotate(geom = "rect", xmin = 0, xmax = rev(myData$level)[-3], ymin = 0.1 + c(1:3, 5:6), ymax = 0.9 + c(1:3, 5:6), fill = "#789862") +
    
12.   annotate(geom = "rect", xmin = 0, xmax = rev(myData$level)[3], ymin = 0.1 + 4, ymax = 0.9 + 4, fill = "#494166") +
    
13.   annotate(geom = "text", x = 0, y = 0.5 + 1:6, label = rev(myData$age), hjust = 1.0, fontface = "bold", family = "myFont") +
    
14.   annotate(geom = "text", x = 0, y = 6.5, label = "年龄", hjust = 2.5, size = 8, fontface = "bold", family = "myFont") +
    
15.   annotate(geom = "text", x = 0.5, y = 0.5 +c(1:3, 5:6), label = paste0(myData$level[-4] * 100, "%"), fontface = "bold", family = "myFont", color = "#789862") +
    
16.   annotate(geom = "text", x = 0.5, y = 0.5 + 4, label = paste0(myData$level[4] * 100, "%"), fontface = "bold", family = "myFont", color = "#494166") +
    
17.   coord_polar() +
    
18.   theme_bw() +
    
19.   theme(panel.grid.major = element_blank(),
    
20.         panel.grid.minor = element_blank(),
    
21.         axis.title = element_blank(),
    
22.         axis.text = element_blank(),
    
23.         axis.ticks = element_blank(),
    
24.         text = element_text(face = "bold"))

复制代码

效果如下：

如果想要绘制的图上有太多的非结构化数据、自定义元素，那ggplot2是不合适的。当然这种情况也能用ggplot2绘制出来，但要在像素级别手动去画每一个点、每一条线、设定文字的位置、大小、背景色，麻烦而且违背了ggplot2设计的初衷，不够优雅，毕竟ggplot2提供的轮子是有限的。
最好的办法简单粗暴，就是在@cheetahfly的基础上，用PS、AI等手动添加那些自定义元素。