24

我一直在考虑使用 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 并结合情节时，我没有得到输出。

4

3 回答 3

32 
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))
于 2012-02-28T22:47:01.220 回答
13

我认为值得更多关注的实用程序是layOutth 包的前身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包的早期版本，来自非官方 Github CRAN 镜像上的提交历史。）

于 2014-09-29T23:49:30.963 回答
7

涉及grid.layout作品的答案，我已经使用过，并且我投票赞成。然而，我通常觉得这个解决方案太乏味且容易出错，而且我怀疑大多数经常这样做的 ggplot2 爱好者已经将它封装在一个函数中。我在之前的搜索中发现了几个这样的包装函数，但我当前的主力解决方案是在一个名为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您将开始讨厌必须将它们全部命名和键入。

于 2014-09-29T22:58:10.133 回答