如何为ggarrange所有子图批量应用统一主题修改？

你遇到的问题核心是：ggarrange返回的是ggpubr包专属的ggarrange类对象，不是普通的ggplot列表，直接用lapply遍历整个对象会拿到它的布局参数（比如ncol、nrow）而非子图，所以报错。下面是两种可行的自动化解决方案：

方案1：提取子图修改后重新组合 #

直接访问ggarrange对象内部的plots元素获取所有子图，修改后用原布局参数重新组合：

library(ggplot2)
library(ggpubr)

df <- data.frame(X=runif(1000, 0,1),
                 Y=runif(1000, 2,3),
                 CLASS=as.factor(rbinom(1000, size=1, p=.5)))

.g <- function(DF)
{
    ggplot(DF, aes(x=X, y=Y,color=CLASS)) +
    geom_point()
}

ggarr <- ggarrange( .g(df), .g(df[1:10,]))
reqs <- theme(legend.position='bottom') 

# 提取子图并修改
modified_plots <- lapply(ggarr$plots, function(p) p + reqs)
# 用原布局参数重新组合
ggarr_modified <- ggarrange(plotlist = modified_plots,
                            ncol = ggarr$ncol,
                            nrow = ggarr$nrow,
                            common.legend = ggarr$common.legend,
                            legend = ggarr$legend)

方案2：写通用函数适配两种对象 #

如果需要同时处理单个ggplot和ggarrange对象，可以封装一个函数自动判断并处理：

ggsave_reqs <- function(plot_obj, reqs_theme) {
  # 判断输入对象类型
  if (inherits(plot_obj, "ggplot")) {
    return(plot_obj + reqs_theme)
  } else if (inherits(plot_obj, "ggarrange")) {
    # 修改所有子图
    modified_plots <- lapply(plot_obj$plots, function(p) p + reqs_theme)
    # 保留原布局参数重新组合
    return(ggarrange(plotlist = modified_plots,
                     ncol = plot_obj$ncol,
                     nrow = plot_obj$nrow,
                     common.legend = plot_obj$common.legend,
                     legend = plot_obj$legend,
                     labels = plot_obj$labels))
  } else {
    stop("输入必须是ggplot或ggarrange对象")
  }
}

# 测试单个ggplot
single_plot <- .g(df)
single_modified <- ggsave_reqs(single_plot, reqs)

# 测试ggarrange对象
ggarr_modified <- ggsave_reqs(ggarr, reqs)

为什么原方法无效？ #

ggarrange对象的结构不是标准列表，直接用lapply(ggarr, ...)会遍历它的所有属性（包括布局参数、图例设置等），这些属性不是ggplot对象，所以执行p + reqs时会抛出"Cannot add ggproto objects together"的错误。必须通过$plots来精准访问内部的子图列表。

内容的提问来源于stack exchange，提问作者A-B-izi