Как мне организовать список переменных графиков с помощью 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функция из пакета patchwork - отличный способ обрабатывать список переменной длины:

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 столбца, а не наоборот.