ggplot2一页多图的实现方法

Data prepare

(a <- qplot(date, unemploy, data = economics, geom = "line"))
(b <- qplot(uempmed, unemploy, data = economics) + geom_smooth(se =F))
(c <- qplot(uempmed, unemploy, data = economics, geom = "path"))
(d <- qplot(mpg, wt, data = mtcars))

Method1:

install.packages("Rmisc")
library(Rmisc)
multiplot(a, b, c, d, cols=2)#按列排序

Rplot1.png

Method2:

library(gridExtra)
grid.arrange(a, b, c, d, nrow=2)#按行排序

Method3:

install.packages("cowplot")
library(cowplot)
plot_grid(a, b, c, d, labels = c("A", "B", "C", "D"),ncol = 2)#按行排序

Method4:

install.packages("ggpubr")
library(ggpubr)
ggarrange(a, b, c, d, nrow = 2, ncol = 2, 
          labels = c("A", "B", "C", "D"), font.label = list(color = "red"))
#颜色为红色(通过font.label = list()修改)，无法通过label.color = 'red'或其他方式修改。

综合，多图组合采用了几种不同的R包来实现，而分面的组图，必须来自一个数据框。
参考资料：

1. R 绘图ggplot2 一页多图及子图嵌入主图的多种实现方法
2. ggplot2一页多图（组合图）