Làm cách nào để sắp xếp danh sách các ô có sử dụng grid.arrange?

Question

library(ggplot2) 
df <- data.frame(x=1:10, y=rnorm(10)) 
p1 <- ggplot(df, aes(x,y)) + geom_point() 
plist <- list(p1,p1,p1,p1,p1) 
# In my real example,a plot function will fit a ggplot to a list of datasets 
#and return a list of ggplots like the example above. 

Tôi muốn sắp xếp các ô bằng cách sử dụng grid.arrange() trong gridExtra.

Làm cách nào để thực hiện điều này nếu số lượng ô trong plist có thể thay đổi?

này hoạt động: grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

nhưng tôi cần một giải pháp tổng quát hơn. suy nghĩ?

Answer 1

Làm thế nào về điều này:

library(gridExtra) 
n <- length(plist) 
nCol <- floor(sqrt(n)) 
do.call("grid.arrange", c(plist, ncol=nCol)) 

Answer 2

Bạn có thể sử dụng grid.arrange() và arrangeGrob() với danh sách miễn là bạn chỉ định danh sách bằng cách sử dụng grobs = lập luận trong từng chức năng. Ví dụ. trong ví dụ bạn đưa ra:

library(ggplot2) 
library(gridExtra) 
df <- data.frame(x=1:10, y=rnorm(10)) 
p1 <- ggplot(df, aes(x,y)) + geom_point() 
plist <- list(p1,p1,p1,p1,p1) 

grid.arrange(grobs = plist, ncol = 2) ## display plot 
ggsave(file = OutFileName, arrangeGrob(grobs = plist, ncol = 2)) ## save plot 

Answer 3

Vì lợi ích của sự hoàn chỉnh (và như cũ, đã trả lời câu hỏi này has been revived, recently) Tôi muốn thêm một giải pháp sử dụng cowplot gói:

cowplot::plot_grid(plotlist = plist, ncol = 2)