r - 在多个页面上使用 grid.arrange 或带有 layout_matrix 的 marrangeGrob

Question

我想在多个页面上使用以下 layout_matrix 排列图。



代表例如

library(gridExtra)
library(ggplot2)

layout <- rbind(c(1,2,3,4),
                    c(1,2,3,4),
                    c(1,2,3,4),
                    c(5,5,5,5))
p <- list()
for(i in 1:15) {
    ifelse(i %% 5 > 0,
        p[[i]] <- ggplot(mtcars, aes(wt, mpg)) + geom_point() + ggtitle(paste("plot:",i)),
        p[[i]] <- tableGrob(mtcars[5:7,],rows = NULL)
    )
}

如果我只有一页:(简单)

grid.arrange(grobs=p[1:5],layout_matrix=layout)

如果我想要多个页面:(我失去了所有的模式)

marrangeGrob(grobs=p,nrow=4,ncol=2)

请帮助我提供一个通用解决方案，以便在多个页面上使用 layout_matrix。

Answer 1

这似乎有效，

marrangeGrob(grobs=p, nrow=1, ncol=5, layout_matrix=layout)

(诚​​然偶然)
marrangeGrob只是一个围绕 for 循环和 grid.arrange 的薄包装，所以如果你需要比这个幸运的解决方法更精致的东西，你应该根据你的需要修改代码。