ggplot
作为R语言画图的瑞士军刀,相比于基础的R包,语法更加易于理解和掌握,不需要掌握很多的命令就能画出整洁美观的图表。比方说用ggplot
来画箱线图,首先我们可以这样操作:
library(ggplot2)
library(RColorBrewer)
p <- ggplot(mpg, aes(class, hwy))
p + geom_boxplot(aes(colour=class),width=0.5)+
theme(panel.background = element_blank(),axis.ticks=element_blank(),legend.position="none",axis.line = element_line(colour="black",arrow=arrow(length = unit(0.20, "npc"))))
得到下图
但是在基础R包绘制的箱线图和大部分的箱线图中是这样的
相比较于基础R包的箱线图,
ggplot
的箱线图缺少了最大值和最小值的两条须线(whisker-ends),于是我谷歌后找到了一个网页,参照网页中的操作,我在我的代码中加入了stat_boxplot
,变成
library(ggplot2)
library(RColorBrewer)
p <- ggplot(mpg, aes(class, hwy))
p + geom_boxplot(aes(colour=class),width=0.5)+
stat_boxplot(geom = "errorbar",width=0.15,aes(color=class))+
theme(panel.background = element_blank(),axis.ticks=element_blank(),legend.position="none",axis.line = element_line(colour="black",arrow=arrow(length = unit(0.20, "npc"))))
但是这样有一个问题,加上去的须线会挡住我们的box,显得图很乱,后来比照了前面的网页和我的代码,发现他的
stat_boxplot
在geom_boxplot
前面,后来我想,之所以我的图会变成这样是因为ggplot
是以图层的方式进行绘图,即后一个图层会覆盖前一个图层,因此我的代买里面先geom_boxplot
后stat_boxplot
导致前面的box被后面的线覆盖掉,如果不想出现这种情况,那就只需要将这两个命令调整一下顺序,修改代码如下:
library(ggplot2)
library(RColorBrewer)
p <- ggplot(mpg, aes(class, hwy))
p + stat_boxplot(geom = "errorbar",width=0.15,aes(color=class))+
geom_boxplot(aes(colour=class),width=0.5)+
theme(panel.background = element_blank(),axis.ticks=element_blank(),legend.position="none",axis.line = element_line(colour="black",arrow=arrow(length = unit(0.20, "npc"))))
最终总结:记住ggplot
是基于图层的绘图系统。