R语言如何实现与数据无关的固定位置绘图文本标注

你检索不到有效结果是因为没匹配到核心术语：你需要的是基于绘图面板相对坐标的标注能力，定位逻辑完全脱离数据轴的数值尺度，以绘图区域本身的比例为参考，不管Y轴映射什么变量、取值范围多大，标注位置都能保持完全一致。
你之前使用的annotate("text", x = 2, y = 5)是绑定数据坐标的写法，y=5的实际显示位置会随Y轴尺度变化：在wt字段（取值范围1_{6）里5接近轴顶部，在disp字段（取值范围70}480）里5远低于轴下限，必然出现位置错位。

方法1：任意位置固定标注（最通用，适配批量绘图需求） #

用grid包的文本对象搭配annotation_custom层，位置用npc（归一化父坐标）单位定义：整个绘图数据面板的左下角为(0,0)、右上角为(1,1)，0~1之间的数值对应在面板上的比例位置，和数据数值完全无关。
你可以统一定义一次标注层，直接加到30张图上即可，所有图的标注位置完全一致：

library(ggpubr)
library(grid)

# 全局统一标注，仅需定义一次
fixed_label <- annotation_custom(
  grob = textGrob(
    label = "I should be in the same place in both plots",
    gp = gpar(fontsize = 11, col = "black") # 可按需自定义字体大小、颜色
  ),
  xmin = 2, xmax = 2, # X轴分类固定时直接写对应位置即可
  ymin = unit(0.9, "npc"), ymax = unit(0.9, "npc") # Y轴位置：0.9代表距离面板底部90%高度
)

# 批量绘图直接复用同一个标注层
ggboxplot(mtcars, x = "gear", y = "wt") + fixed_label
ggboxplot(mtcars, x = "gear", y = "disp") + fixed_label

调整垂直位置只需修改unit()里的第一个数值：0.1为靠近面板底部、0.5为垂直居中、0.9为靠近顶部。如果不同图的X轴范围也不统一，X轴位置同样可以用unit(0.5, "npc")这类相对单位定义，实现完全脱离数据的定位。如果标注被面板边框裁切，额外加一层coord_cartesian(clip = "off")即可。

方法2：边角固定标注（更简洁，无需额外加载包） #

如果标注只需要固定在面板四个边角，不需要自定义X轴位置，可以直接用极值定位，不用依赖grid包：

fixed_label_corner <- annotate(
  "text",
  x = Inf, y = Inf, # Inf对应轴最大值、-Inf对应轴最小值，此处定位为右上角
  label = "固定边角标注",
  hjust = 1.1, vjust = 1.1 # 调整数值控制标注和边角的间距
)
# 直接加到所有图上即可生效，位置不受轴尺度影响

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