R笔记4:ggplot绘制商务图表--玫瑰图
我们说Excel有难度的图表,可以考虑ggplot2是否更方便,本帖的例子就是用ggplot做玫瑰图。
Excel做玫瑰图有一定难度,可以使用雷达图或圆环图来构建,我的博客上曾有多个帖子讨论这个,见
1、已被sohu隐藏
2、已被sohu隐藏
3、圆环图做南丁格尔玫瑰图:http://blog.sina.com.cn/s/blog_6bc5205e0101jk0r.html
但在ggplot2中做这个图表类型却是非常的简单方便。
#转换为长表
library(reshape2)
rose_long <- melt(rose,id.vars="取值",variable.name="维度",value.name="count")
#如果直接做堆积柱形图是这样的
library(ggplot2)
p <- ggplot(rose_long,aes(x=维度, y=count, fill=取值))+ geom_bar(stat="identity",color="black")
p
#使用极坐标,柱形图被像折扇子一样折叠为玫瑰图了,真是1秒钟变玫瑰图!太方便了,想起当时在Excel费老大劲折腾,不堪回首中......
p + coord_polar()
#这个内置的颜色不太好,使用更好的颜色:
p + coord_polar() + scale_fill_brewer(palette="Blues")
p + coord_polar() + scale_fill_brewer(palette="Blues") + theme_bw()
p + coord_polar() + scale_fill_brewer(palette="Blues") + theme_bw() + ylim(-0.4,1)
#在中心空白处画个圆圈作为玫瑰图的x轴起点线,以及在外圈画个圆,使图表看起来更圆润。
p + coord_polar() + scale_fill_brewer(palette="Blues") + theme_bw() +
ylim(-0.4,1.1)+ geom_hline(yintercept=0) + geom_hline(yintercept=1.1)
p + coord_polar() + scale_fill_brewer(palette="Blues") + theme_bw() +
ylim(-0.4, 1.1) +
geom_hline(yintercept = 0) +
geom_hline(yintercept = 1.1) +
theme(
panel.grid = element_blank(),
panel.border= element_blank(),
axis.text.y = element_blank(),
axis.ticks = element_blank(),
axis.title = element_blank()
) +
annotate("text",x=1, y=-0.4, label="ExcelPro", fontface="bold", colour="steelblue", size=4)
现在玫瑰图基本已经完成,后续可导入AI继续编辑和添加各种标签。
回头看看,如果不使用极坐标,把图表还原为普通的柱形图,就是如下的样子。这其实比玫瑰图更好比较。不过,大众读者可能更喜欢看起来新颖、高级的样式吧,也无可厚非。
ExcelPro图表博客,专注于简单实用、专业有效的商务图表沟通方法。转载请注明出处。
最新商业图表案例教程见第1季、第2季,属于中高级程度,适合对图表品质要求高的朋友。提供xlsx源文件+pdf图文教程+在线视频演示3合1课程。
--------------------------------------
更多内容请见:R、ggplot2、shiny 汇总
初始图样:
library(ggplot2)
dt = data.frame(A = c(2, 7, 4, 10, 1), B = c('B','A','C','D','E'))
windowsFonts(myFont = windowsFont("楷体")) ## 绑定字体
p = ggplot(dt, aes(x = B, y = A, fill = B)) +
geom_bar(stat = "identity", alpha = 0.7) +
coord_polar()
p
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
修补过后的玫瑰图:
library(ggplot2)
dt = data.frame(A = c(2, 7, 4, 10, 1), B = c('B','A','C','D','E'))
windowsFonts(myFont = windowsFont("楷体")) ## 绑定字体
p = ggplot(dt, aes(x = B, y = A, fill = B)) +
geom_bar(stat = "identity", alpha = 0.7) +
coord_polar() +
theme_bw() +
labs(x = "", y = "", title = "这个玫瑰图有点丑") +
geom_text(aes(y = A/2 + max(A)/4, label = A, color = B), size = 5) + ## 加上数字
theme(axis.text.y = element_blank()) + ## 去掉左上角的刻度标签
theme(axis.ticks = element_blank()) + ## 去掉左上角的刻度线
theme(panel.border = element_blank()) + ## 去掉外层边框
theme(legend.position = "none") + ## 去掉图例
theme(title = element_text(vjust = -56, face = "bold", family = "myFont")) ## 将图例移到图的下方,并更改一下字体格式
p
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
注:更多修改的细节可见:ggplot2——饼图篇,两者类似。