9.图片保存

ggplot2和ggpubr系列

#直接把画板上的图保存成png格式
ggsave("iris_box_ggpubr.png")
#把要保存的图赋值为p，
ggsave(p,filename = "iris_box_ggpubr2.png")

通用保存方式

pdf("iris_box_ggpubr.pdf")
...... 绘图函数
...... 作图代码
dev.off()

dev.off() 
pdf("iris_box_ggpubr.pdf")
p <- ggboxplot(iris, x = "Species", y = "Sepal.Length",
               color = "Species", shape = "Species",
               add = "jitter")

my_comparisons <- list( c("setosa", "versicolor"), c("setosa", "virginica"), c("versicolor", "virginica") )
p + stat_compare_means(comparisons = my_comparisons)+ # Add pairwise comparisons p-value
  stat_compare_means(label.y = 9) 
dev.off()

第三种图片保存方式，有些R做出来的图要用PS和AI做后期处理，如果不会PS,AI，可通过第三种图片保存方式，导出为ppt，图片中的各个成分以组件显示。

#export包
#devtools::install_github("tomwenseleers/export")
library(export)
graph2ppt(p,"iris_box_ggpubr.ppt")

ggplot2绘图代码外网