如何在不知道ggplot2绘图精确坐标的情况下固定在左下角添加文本

方案1：基于原生ggplot2+grid包实现（无需额外安装扩展包） #

使用annotation_custom配合grid包的坐标系统，直接用0-1的相对坐标（npc单位）定位，完全不需要提前获取坐标轴实际范围：

library(ggplot2)
library(grid)

# 你的原始绘图对象
g = ggplot(mtcars, aes(mpg, cyl)) +
  geom_point()

# 添加左下角相对位置文本，调整x、y的0-1数值即可修改位置
g + annotation_custom(
  grob = textGrob(
    label = "Boring Label", 
    gp = gpar(fontsize = 12, col = "black") # 可自定义文本样式
  ),
  xmin = 0.1, xmax = 0.1, 
  ymin = 0.1, ymax = 0.1,
  vp = viewport(x = 0, y = 0, width = 1, height = 1, just = c("left", "bottom"))
)

说明：这里的坐标系统锚定到绘图面板的左下角，x=0对应面板最左侧，x=1对应最右侧；y=0对应面板最底部，y=1对应最顶部，参数可通用到所有ggplot对象上，无需适配坐标轴范围。

方案2：基于ggpmisc扩展包实现（代码更简洁） #

如果可以安装扩展包，ggpmisc的annotate函数原生支持相对坐标定位，只需要加一个参数即可：

# 首次使用先安装包：install.packages("ggpmisc")
library(ggpmisc)

# 直接用0-1的相对坐标指定位置，coord.npc = TRUE开启相对坐标模式
g + annotate("text", x = 0.1, y = 0.1, label = "Boring Label", coord.npc = TRUE)

方案3：手动计算坐标（逻辑直白易封装） #

可以用layer_scales直接获取当前绘图的坐标轴范围，按比例换算出实际坐标，也不需要提前知道数据范围：

# 获取x、y轴的取值范围
x_range <- layer_scales(g)$x$range$range
y_range <- layer_scales(g)$y$range$range

# 按相对比例计算目标坐标，这里取10%的位置
target_x <- x_range[1] + 0.1 * diff(x_range)
target_y <- y_range[1] + 0.1 * diff(y_range)

# 添加文本
g + annotate("text", x = target_x, y = target_y, label = "Boring Label")

你可以把这段逻辑封装成自定义函数，批量处理绘图时直接调用即可。

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