Làm cách nào để sắp xếp một danh sách biến các mảnh đất bằng cách sử dụng grid.arrange?

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 lô bằng cách sử dụng grid.arrange()trong gridExtra.

Làm cách nào để làm điều này nếu số lượng ô trong đó plistthay đổi?

Những công việc này: 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ĩ?

Còn cái này thì sao:

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

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 =đối số trong mỗi hàm. 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

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

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

Tôi biết câu hỏi nêu cụ thể bằng cách sử dụng gói gridExtra , nhưng wrap_plotshàm từ gói chắp vá là một cách tuyệt vời để xử lý danh sách có độ dài thay đổi:

library(ggplot2)
# devtools::install_github("thomasp85/patchwork")
library(patchwork)

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

wrap_plots(plist)

Một điều hữu ích về nó là bạn không cần chỉ định số lượng cột được yêu cầu và sẽ nhằm mục đích giữ cho số lượng cột và hàng bằng nhau. Ví dụ:

plist <- list(p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1,p1)
wrap_plots(plist) # produces a 4 col x 4 row plot

Tìm hiểu thêm về gói chắp vá tại đây

Để phù hợp với tất cả các ô trên một trang, bạn có thể tính số cột và hàng như sau:

x = length(plots)

cols = round(sqrt(x),0)
rows = ceiling(x/cols)

Vì hầu hết các hàm vẽ đồ thị có ncol và nrow làm đối số, bạn chỉ có thể đặt chúng vào đó. Tôi thích ggarrange từ ggpubr.

ggarrange(plotlist = plots, ncol=cols, nrow = rows)

Điều này ủng hộ nhiều hàng hơn cột vì vậy hãy đảo ngược nếu bạn muốn ngược lại. Tức là đối với 6 ô, nó sẽ cho 3 hàng và 2 cột chứ không phải ngược lại.