Як упорядкувати змінний список ділянок за допомогою 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.

Я хотів би влаштувати ділянки, використовуючи grid.arrange()в gridExtra.

Як я можу це зробити, якщо кількість ділянок у plistє змінною?

Це працює: grid.arrange(plist[[1]],plist[[2]],plist[[3]],plist[[4]],plist[[5]])

але мені потрібно більш загальне рішення. думки?

Як щодо цього:

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

Ви можете використовувати grid.arrange()і arrangeGrob()зі списками, якщо ви вказуєте список, використовуючи grobs =аргумент у кожній функції. Наприклад, у наведеному вами прикладі:

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

Для повноти (і оскільки це старе, на яке вже було дано відповідь , нещодавно було відроджено ), я хотів би додати рішення, використовуючи cowplotпакет:

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

Я знаю, що питання конкретно говорить про використання пакета gridExtra , але wrap_plotsфункція з пакета печворк - це чудовий спосіб обробити список змінної довжини:

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)

Корисно в цьому те, що вам не потрібно вказувати, скільки стовпців потрібно, а прагнутиме дотримуватися рівності кількості стовпців і рядків. Наприклад:

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

Дізнайтеся більше про печворк- пакет тут

Щоб вмістити всі графіки на одній сторінці, можна розрахувати кількість стовпців і рядків таким чином:

x = length(plots)

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

Оскільки більшість функцій побудови графіків використовують ncol і nrow як аргументи, ви можете просто помістити їх туди. Мені подобається ggarrange від ggpubr.

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

Це надає перевагу більшій кількості рядків, ніж стовпців, тому зворотне, якщо ви хочете протилежного. Тобто для 6 ділянок це дасть 3 рядки і 2 стовпці не навпаки.