如何在ggplot中批量添加多个grobs对象无需重复调用annotation_custom

完全可以实现，你只需要把坐标参数整理成结构化的配置表，批量生成annotation_custom图层列表即可，ggplot原生支持直接添加图层列表，无需逐个拼接调用语句。

方案1：使用purrr包批量生成（代码更简洁） #

如果是添加同一个grob到不同位置，仅需构造坐标配置表即可：

# 承接你已有的基础代码
library(purrr)

# 构造坐标配置表，每一行对应一个grob的位置参数，新增grob仅需在此加行
anno_params <- data.frame(
  xmin = c(3, 1.5, 1.7, 5),
  xmax = c(2, 2.5, 2.7, 6),
  ymin = c(8, 2.8, 3.8, 7),
  ymax = c(10, 3, 5, 8.5)
)

# 批量生成annotation图层列表
anno_layers <- pmap(anno_params, function(xmin, xmax, ymin, ymax) {
  annotation_custom(grob = g, xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax)
})

# 直接添加图层列表到基础图
base + anno_layers

如果需要添加多个不同的grob，把grob对象也存入配置表即可：

# 假设有g1、g2、g3三个不同的自定义grob
anno_params <- data.frame(
  grob = I(list(g1, g2, g3)), # 用I()包裹列表避免被数据框自动展开
  xmin = c(2, 4, 6),
  xmax = c(3, 5, 7),
  ymin = c(1, 3, 5),
  ymax = c(2, 4, 6)
)

anno_layers <- pmap(anno_params, function(grob, xmin, xmax, ymin, ymax) {
  annotation_custom(grob = grob, xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax)
})

base + anno_layers

方案2：使用base R原生方法实现（无需额外依赖包） #

如果你不想引入purrr依赖，用基础的lapply也可以实现：

anno_params <- data.frame(
  xmin = c(3, 1.5, 1.7, 5),
  xmax = c(2, 2.5, 2.7, 6),
  ymin = c(8, 2.8, 3.8, 7),
  ymax = c(10, 3, 5, 8.5)
)

anno_layers <- lapply(1:nrow(anno_params), function(i) {
  annotation_custom(
    grob = g,
    xmin = anno_params$xmin[i],
    xmax = anno_params$xmax[i],
    ymin = anno_params$ymin[i],
    ymax = anno_params$ymax[i]
  )
})

base + anno_layers

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