使用do.call和gridExtra对ggplot列表进行重新排序

# 加载必要的库
library(ggplot2)
library(gridExtra)

# 创建一些示例 ggplot 对象
p1 <- ggplot(mtcars, aes(x=mpg, y=disp)) + geom_point()
p2 <- ggplot(mtcars, aes(x=mpg, y=hp)) + geom_point()
p3 <- ggplot(mtcars, aes(x=mpg, y=qsec)) + geom_point()

# 将 ggplot 对象放入一个列表
plots <- list(p1, p2, p3)

# 假设我们想要重新排序这个列表
new_order <- c(3, 1, 2)
plots_reordered <- plots[new_order]

# 使用 do.call 和 grid.arrange 来组合这些图形
do.call(grid.arrange, plots_reordered)

# 调整布局为两列
do.call(grid.arrange, c(plots_reordered, ncol = 2))

auto_layout <- function(plots) {
  n <- length(plots)
  ncol <- ceiling(sqrt(n))
  nrow <- ceiling(n / ncol)
  do.call(grid.arrange, c(plots, ncol = ncol, nrow = nrow))
}

# 使用自动布局函数
auto_layout(plots_reordered)