在多个页面上使用 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 的薄包装，所以如果您需要比这个幸运的解决方法更精致的东西，您应该根据您的需要修改代码。

Answer 2

制作我自己的功能，制作多个 grid.arrange 具有布局的文件，然后 marrangeGrob 将其放入多页对象中。

m.grid.arrange <- function(p,topnames,layMat) {
    pdf(file = NULL) #invisible
    plotsPerPage <- length(unique(na.omit(c(layMat))))

    ml <- lapply(1:ceiling(length(p)/plotsPerPage), function(page_IND){
        ind <- (1+((page_IND-1)*plotsPerPage)):(page_IND*plotsPerPage)
        grid.arrange(grobs = p[ind], layout_matrix = layMat,top=topnames[page_IND])
    })

    return(marrangeGrob(grobs=ml,nrow=1,ncol=1,top=NULL))
    dev.off() #invisible
}

然后使用：

ml <- m.grid.arrange(p=p,topnames=c("1 label","2 label","3 label"),layMat = layout)
ggsave("gridMeHard.pdf",width = 297, height =  210, units = "mm", ml)

在多个页面上使用 grid.arrange 或使用 layout_matrix 的 marrangeGrob

use grid.arrange over multiple pages or marrangeGrob with a layout_matrix

r

ggplot2

gridextra

r-grid

代表。例如

请帮我一个通用的解决方案，在多个页面上有一个 layout_matrix。