如何让ggplot2中的annotate文本框自动跟随图例位置？

当然可以，你完全可以使用和legend.position一致的**归一化父坐标系（NPC，范围0-1）**来定位文本框，这样就能让文本框和图例保持固定的相对位置，不受数据坐标系变化影响。核心方法是用annotation_custom()替代默认的annotate()，它支持直接用grid::unit()定义NPC单位的位置。

具体实现步骤 #

1. 加载所需包（如果用富文本需要ggtext）
2. 绘制基础图并设置图例位置
3. 创建富文本grob，用NPC单位设置其相对于图例的位置

代码示例 #

library(ggplot2)
library(ggtext) # 用于支持富文本格式

# 模拟数据
set.seed(123)
df <- data.frame(
  date = seq.Date(as.Date("2023-01-01"), as.Date("2023-01-31"), by = "day"),
  cumulative_precip = cumsum(rnorm(31, 2, 1)),
  group = rep(c("A", "B"), length.out = 31)
)

# 基础绘图，设置图例的归一化位置
p <- ggplot(df, aes(x = date, y = cumulative_precip, color = group)) +
  geom_line(linewidth = 1) +
  theme(
    legend.position = c(0.125, 0.85), # 用NPC（0-1）设置图例位置
    legend.background = element_rect(fill = "white", color = "gray")
  )

# 创建富文本grob
richtext_grob <- element_markdown(
  content = "**提示**: 这是紧邻图例的富文本框",
  color = "#333333",
  size = 10
)

# 添加文本框，位置基于NPC，与图例位置对齐并偏移
p + annotation_custom(
  grob = richtext_grob,
  # 图例x位置向右偏移25mm，调整这个值控制水平距离
  xmin = unit(0.125, "npc") + unit(25, "mm"),
  xmax = unit(0.125, "npc") + unit(60, "mm"),
  # 图例y位置向下偏移3mm，控制垂直对齐
  ymin = unit(0.85, "npc") - unit(3, "mm"),
  ymax = unit(0.85, "npc") + unit(3, "mm")
)

关键说明 #

• legend.position使用的就是NPC坐标系（左上角为(0,1)，右下角为(1,0)），所以用unit(数值, "npc")设置的位置和图例位置完全同单位
• 通过调整unit(数值, "mm")的偏移量，可以精准控制文本框和图例的间距，实现"紧邻"的效果
• 如果不需要富文本，也可以用grid::textGrob()替代element_markdown()

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