ggplot2 的组合图（不在单个图中），使用 par() 或 layout() 函数？ [复制]

Question

我一直在考虑使用 par() 或 layout() 函数来组合 ggplots。是否可以使用这些功能？

假设我想为散点图绘制 ggplot，为直方图绘制 ggplot。我想结合这两个情节（不是在一个情节中）。是否适用？

我在 R 中尝试了简单的绘图，没有使用 ggplot 函数。它确实有效。

这是来自 Quick-R 的示例，链接：http://www.statmethods.net/advgraphs/layout.html

# 4 figures arranged in 2 rows and 2 columns
attach(mtcars)
par(mfrow=c(2,2))
plot(wt,mpg, main="Scatterplot of wt vs. mpg")
plot(wt,disp, main="Scatterplot of wt vs disp")
hist(wt, main="Histogram of wt")
boxplot(wt, main="Boxplot of wt")

# One figure in row 1 and two figures in row 2
attach(mtcars)
layout(matrix(c(1,1,2,3), 2, 2, byrow = TRUE))
hist(wt)
hist(mpg)
hist(disp)

但是当我尝试使用 ggplot 并组合绘图时，我没有得到输出。

Answer 1

library(ggplot2)
library(grid)


vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)


plot1 <- qplot(mtcars,x=wt,y=mpg,geom="point",main="Scatterplot of wt vs. mpg")
plot2 <- qplot(mtcars,x=wt,y=disp,geom="point",main="Scatterplot of wt vs disp")
plot3 <- qplot(wt,data=mtcars)
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot")
plot5 <- qplot(wt,data=mtcars)
plot6 <- qplot(mpg,data=mtcars)
plot7 <- qplot(disp,data=mtcars)

# 4 figures arranged in 2 rows and 2 columns
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
print(plot1, vp = vplayout(1, 1))
print(plot2, vp = vplayout(1, 2))
print(plot3, vp = vplayout(2, 1))
print(plot4, vp = vplayout(2, 2))


# One figure in row 1 and two figures in row 2
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 2)))
print(plot5, vp = vplayout(1, 1:2))
print(plot6, vp = vplayout(2, 1))
print(plot7, vp = vplayout(2, 2))

Answer 2

我认为值得更多关注的实用程序是 layOut 以前的 wq 包（注意大写“O”）。它已从 wq 包中删除，因此我将代码放在下面并将其重命名为 lay_out 以匹配典型的 ggplot 样式。就像base::layout 一样，这些图可以有不同的大小，按行和列排列。 lay_out 的每个参数都是一个 3 元素列表，由绘图、绘制它的行索引和绘制它的列索引组成。

例如，使用@Paul McMurdie 的情节，

lay_out(list(plot1, 1, 1),
        list(plot2, 1, 2),
        list(plot3, 2, 1),
        list(plot4, 2, 2),
        list(plot5, 3, 1:2),
        list(plot6, 4, 1:2),
        list(plot7, 1:2, 3))

lay_out = function(...) {    
    x <- list(...)
    n <- max(sapply(x, function(x) max(x[[2]])))
    p <- max(sapply(x, function(x) max(x[[3]])))
    grid::pushViewport(grid::viewport(layout = grid::grid.layout(n, p)))    

    for (i in seq_len(length(x))) {
        print(x[[i]][[1]], vp = grid::viewport(layout.pos.row = x[[i]][[2]], 
            layout.pos.col = x[[i]][[3]]))
    }
} 

（代码来自wq 包的早期版本，来自commit history on the unofficial Github CRAN mirror。）

Answer 3

涉及grid.layout 的答案有效，我已经使用它，并且我赞成它。然而，我通常觉得这个解决方案太乏味且容易出错，而且我怀疑大多数经常这样做的 ggplot2 爱好者已经将它封装在一个函数中。我在之前的搜索中发现了几个这样的包装函数，但我目前的主力解决方案是在 grid addon package called gridExtra 中。它有有用的参数，但默认的行/列设置通常是您首先想要的：

library("ggplot2")
# Generate list of arbitrary ggplots
plot1 <- qplot(data = mtcars, x=wt, y=mpg, geom="point",main="Scatterplot of wt vs. mpg")
plot2 <- qplot(data = mtcars, x=wt, y=disp, geom="point",main="Scatterplot of wt vs disp")
plot3 <- qplot(wt,data=mtcars)
plot4 <- qplot(wt,mpg,data=mtcars,geom="boxplot")
plot5 <- qplot(wt,data=mtcars)
plot6 <- qplot(mpg,data=mtcars)
plot7 <- qplot(disp,data=mtcars)
# You might have produced myPlotList using instead lapply, mc.lapply, plyr::dlply, etc 
myPlotList = list(plot1, plot2, plot3, plot4, plot5, plot6, plot7)
library("gridExtra")
do.call(grid.arrange,  myPlotList)

请注意实际的“将我的绘图组合成一个图形”代码是一行（加载 gridExtra 之后）。您可能会争辩说，将图放入列表中是多行的，但实际上我可以选择使用

grid.arrange(plot1, plot2, plot3, plot4, plot5, plot6, plot7)

对于少量的 ggplots，这可能更可取。但是，对于n_plots > 4，您将开始讨厌必须全部命名和键入它们。