在R中使用小平面包裹格式化500+图的最佳方法是什么？[包含的图像和代码]

install.packages("ggplot2")
install.packages("gridExtra")
library(ggplot2)
library(gridExtra)

df <- data.frame(x = rnorm(500), y = rnorm(500))

# 创建一个包含500个图的列表
plots <- lapply(1:500, function(i) {
  ggplot(df, aes(x = x, y = y)) +
    geom_point() +
    ggtitle(paste("图", i))
})

# 将图组合在一起，每行显示10个图
grid.arrange(grobs = plots, nrow = 50, ncol = 10)