ggplot2箱式图两两比较_处理、时期太多？R语言——ggplot2分面图！一组代码解决了...

ggplot2分面图：两个关键函数facet_wrap()和facet_grid()

不同类型的分面图，可以根据不同需要灵活运用！！！

上图引自《R语言数据可视化之美专业图表绘制指南(增强版)》

R运行代码：

一、R包准备library(ggplot2)library(eoffice)#导出PPT格式的可视化结果library(RColorBrewer)

二、数据准备
data1("F:/硕士/2020.csv")#导入数据data1#查看数据，下图为数据在Excel中的格式。正确的格式非常重要，会影响之后的算法

三、根据需要定义
windowsFonts(myFont=windowsFont("Times New Roman"))#定义字体。也可以不定义，图做好后，导出PPT格式，在PPT中进行修改，也是比较方便简单的
data1$Treatment$Treatment,levels=c("CK","CF","CM","EMⅠ","EMⅡ","EMⅢ","EMⅣ"))#指定不同处理的顺序，如不指定，则按英文字母顺序排列
data1$groups$groups,levels=c("Plant height","Stem diameter","SPAD","Leaf area"))#指定不同指标的先后顺序
attach(data1)#定义数据对象
table(data1$Treatment)

四、数据分析
mean1list(data1$Treatment,Time,groups),FUN=mean)
mean1#计算均值
sd1list(data1$Treatment,Time,groups),FUN=sd)
sd1#计算方差
aov#合并数据
aov

五、数据可视化
g1<-ggplot(data=aov, aes(x =Group.2, y =x,group=Group.1,color = Group.1))+geom_point(size = 3) + geom_line(size = 1)+facet_grid(Group.3~.,scales= "free")+theme_bw()+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())#利用ggplot2绘图，重点是函数facet_grid()g1#查看图形(本文数据进行了随机处理，因此无规律可言，视觉上来说，少了点美感)topptx(filename="F:/硕士/20表型.pptx")#保存路径，保存为PPT格式，修改的时候比较方便，也可以输出pdf、tiff格式

总结

-END-

---