如何在ggplot2绘图顶部中央距上边缘10像素处放置文本？

有两种可靠方法能实现你的需求——让文本固定在绘图区域顶部中央、保留10像素上边距，且完全不受y轴范围影响：

方法一：调整geom_text_npc参数实现精确偏移 #

geom_text_npc的坐标参数支持unit对象来定义像素级边距，配合对齐参数就能精准定位：

library(ggplot2)
library(ggpp)

set.seed(1)
dat = data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x = x, y = 1)) +
  geom_point() +
  scale_x_continuous(limits = c(-5, 5)) +
  ggpp::geom_text_npc(
    aes(npcx = 'center', npcy = unit(1, "npc") - unit(10, "pt")), 
    label = 'Text', 
    color = '#212529',
    vjust = 1  # 让文本顶部对齐到指定的偏移位置
  )

这里用unit(1, "npc") - unit(10, "pt")从绘图区域最顶部（npc=1）向下偏移10像素，vjust=1确保文本的上边缘刚好对齐这个偏移后的位置，完美保留10像素的上边距。

方法二：用annotation_custom彻底脱离坐标轴控制 #

annotation_custom直接在绘图的panel区域放置元素，完全不受坐标轴范围干扰，适合固定位置的文本：

library(ggplot2)
library(grid)  # 需要grid包提供textGrob

set.seed(1)
dat = data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x = x, y = 1)) +
  geom_point() +
  scale_x_continuous(limits = c(-5, 5)) +
  annotation_custom(
    grob = textGrob(
      label = 'Text', 
      gp = gpar(color = '#212529'),
      vjust = 1
    ),
    xmin = -Inf, xmax = Inf,  # 水平方向铺满实现自动居中
    ymin = unit(1, "npc") - unit(10, "pt"), 
    ymax = unit(1, "npc") - unit(10, "pt")
  )

这种方法中，xmin=-Inf和xmax=Inf让文本在水平方向自动居中，ymin/ymax锁定垂直偏移位置，配合vjust=1确保文本顶部距离绘图上边缘恰好10像素，完全不受y轴数据范围的影响。

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