R语言plot_grid拼合图批量调整坐标轴字体大小方法咨询

plot_grid()本身仅负责子图的排版、对齐与边距控制，没有内置批量修改子图内部主题样式的参数，直接在函数里加字体相关参数不会产生任何效果，无需尝试。可以通过以下两种零重复修改的方式实现所有子图、拼合图的坐标轴字体同步放大：

方法1：全局主题统一设置，一次修改全局生效 #

在所有子图绘制代码的最开头，调用theme_set()设置统一的主题与字体大小，后续生成的所有子图都会自动沿用该设置，无需在每个子图的theme_cowplot()里重复写字号参数。
示例代码：

# 在所有ggplot绘图代码之前运行
# 将基础字号设置为需要放大到的数值，比如22
theme_set(theme_cowplot(font_size = 22))

该设置会统一管控所有子图的坐标轴刻度、坐标轴标题、图题的字体大小，后续拼合时无需在plot_grid()中添加任何额外参数，所有字体自动同步生效。
注意：如果保留之前子图代码里单独写的theme_cowplot(font_size=16)，该部分会覆盖全局设置，建议直接删除每个子图里重复的theme_cowplot(font_size=16)行，由全局设置统一管控。

方法2：批量遍历修改已生成的子图 #

如果已经完成所有子图的代码编写，不想回头逐行删除重复的主题设置，可以将所有已生成的子图放入列表，通过循环批量修改主题，无需逐个子图调整：
示例代码（适配你当前的绘图对象）：

# 1. 收集所有已生成的子图
all_subplots <- list(
  flanker.Training, flanker.Pretest, flanker.Posttest, flanker.PostPre,
  pitch.Training, pitch.Pretest, pitch.Posttest, pitch.PostPre,
  id.Training, id.Pretest, id.Posttest, id.PostPre,
  discrimination.Training, discrimination.Pretest, discrimination.Posttest, discrimination.PostPre
)

# 2. 批量调整坐标轴字体大小，比如需要放大到22号
adjusted_plots <- lapply(all_subplots, function(plot) {
  plot +
    theme(
      # 调整坐标轴刻度文字大小
      axis.text = element_text(size = 22),
      # 调整坐标轴名称文字大小
      axis.title = element_text(size = 22)
    )
})

调整完成后，将原来拼合时用到的子图对象替换为adjusted_plots列表里对应顺序的对象即可，所有坐标轴字体会同步放大。

灵活调整技巧 #

如果需要单独区分坐标轴刻度和轴标题的字号，可以在批量设置的theme()参数里分别指定axis.text和axis.title的size值，不需要逐图调整。

内容的提问来源于stack exchange，提问作者Lee Drown