如何用ggplot2和grid绘制指向最佳拟合线的箭头？

你的问题出在两个核心点：一是用grobX()和grobY()结合角度获取的是拟合线grob边界框的边缘点，而非拟合线上的实际点；二是注释grob的坐标系统与拟合线所在的panel坐标系不匹配，导致位置偏移。以下是针对性的修正方案：

修正后的代码 #

library(ggplot2)
library(grid)

p <- ggplot(mtcars, aes(x = disp, y = mpg)) +
  geom_point() +
  geom_smooth(method = lm, se = TRUE)

gg <- ggplotGrob(p)

# 获取panel区域的grob
panel_idx <- gg$layout$name == "panel"
panel_grob <- gg$grobs[[which(panel_idx)]]

# 提取smooth对应的gTree
smooth_grob <- panel_grob$children[[grep("smooth", names(panel_grob$children))]]

# 从smooth子元素中筛选出拟合线的polyline grob（排除置信区间的polygon）
line_grob_idx <- grep("line", names(smooth_grob$children))
fit_line_grob <- smooth_grob$children[[line_grob_idx]]

# 提取拟合线上的实际坐标（native单位，对应panel的数据坐标系）
fit_x <- fit_line_grob$x
fit_y <- fit_line_grob$y

# 选择拟合线中间位置的点作为箭头终点
mid_point <- round(length(fit_x) / 2)
end_x <- fit_x[mid_point]
end_y <- fit_y[mid_point]

# 创建箭头：起点用panel的npc单位，终点用拟合线的原生坐标
arrow_grob <- segmentsGrob(
  x0 = unit(0.7, "npc"), y0 = unit(0.8, "npc"),
  x1 = end_x, y1 = end_y,
  arrow = arrow(angle = 10, type = "closed"),
  gp = gpar(fill = "black")
)

# 创建注释文本
text_grob <- textGrob(
  "Line of best fit",
  x = unit(0.71, "npc"), y = unit(0.81, "npc"),
  just = c("left", "bottom")
)

# 将注释直接添加到panel grob中，确保坐标系统一致
panel_grob <- addGrob(panel_grob, arrow_grob)
panel_grob <- addGrob(panel_grob, text_grob)

# 替换原ggplotGrob中的panel grob
gg$grobs[[which(panel_idx)]] <- panel_grob

# 绘制图形
grid.draw(gg)

关键修正说明 #

• 精准获取拟合线坐标：直接从fit_line_grob中提取拟合线上的原生坐标点，彻底避免依赖边界框角度计算带来的偏移问题，确保箭头终点精准落在拟合线上。
• 统一坐标系统：使用addGrob()将注释直接嵌入panel区域的grob中，让注释与拟合线共享同一个数据坐标系，无需手动转换单位或调整偏移。
• 选择代表性终点：取拟合线的中间点作为箭头终点，保证注释指向拟合线的典型位置，适配不同数据集的拟合线形态。

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