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")
