patchwork标注轴标签位置不同的ggplot2图表的标签定位问题问询

可行实现方案 #

以下提供两种适配N×2双栏布局的高效解决方案，无需逐个调整子图标签坐标：

方案1：分栏批量设置标签位置（适配固定双栏布局） #

核心思路是将左栏、右栏子图分别存入两个列表，批量为同栏所有子图统一设置plot.tag.position参数，再按布局要求拼接即可。
示例代码如下：

library(ggplot2)
library(patchwork)
library(purrr) # 用于批量处理列表，也可替换为base R的lapply

# 1. 批量生成左栏（y轴在左）子图，共N个，这里以2行2列布局为例
left_plots <- map(1:2, function(i) {
  ggplot(mtcars) + 
    geom_point(aes(mpg, disp)) + 
    scale_y_continuous(paste0("左栏子图", i), position = "left")
})

# 2. 批量生成右栏（y轴在右）子图，共N个
right_plots <- map(1:2, function(i) {
  ggplot(mtcars) + 
    geom_point(aes(mpg, hp)) + 
    scale_y_continuous(paste0("右栏子图", i), position = "right")
})

# 3. 为两栏子图分别批量设置标签位置
left_plots <- map(left_plots, ~.x + theme(plot.tag.position = c(0.935, 0.96)))
right_plots <- map(right_plots, ~.x + theme(plot.tag.position = c(0.785, 0.96)))

# 4. 按行拼接为N×2布局，自动生成标签
wrap_plots(c(rbind(left_plots, right_plots)), nrow = 2) +
  plot_annotation(tag_levels = "A")

方案2：锚定标签到子图绘图区域（通用适配所有布局） #

该方案无需手动调整坐标，不管y轴位置、子图尺寸如何，标签都会自动对齐到每个子图的绘图区域右上角，适配所有布局场景。
首先定义一个批量添加子图标签的工具函数：

add_panel_tag <- function(p, tag) {
  p + 
    annotation_custom(
      grob = grid::textGrob(
        tag, 
        x = 0.98, y = 0.98, 
        hjust = 1, vjust = 1,
        face = "bold", size = 14
      ),
      xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf
    )
}

使用示例：

# 按拼接顺序整理所有子图到同一个列表
all_plots <- c(rbind(left_plots, right_plots))

# 批量为所有子图添加A、B、C...格式的标签
all_plots <- imap(all_plots, ~add_panel_tag(.x, LETTERS[.y]))

# 直接拼接即可
wrap_plots(all_plots, nrow = 2)

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