ggplot2绘图标签未居中于X轴的问题解决咨询

当Y轴标签过长时，默认的plot.tag.position = "top"会让标签居中于整个绘图区域（包含Y轴标签的宽度），而非X轴上方的面板中心。以下是两种可行的解决方法：

方法一：使用相对坐标精确定位标签 #

通过指定plot.tag.position为数值向量，结合npc（归一化父坐标）系统，让标签对齐面板的X轴中心：

ggplot2::ggplot(mtcars) +
  ggplot2::geom_point(ggplot2::aes(mpg, wt)) +
  ggplot2::geom_smooth(ggplot2::aes(mpg, wt)) +
  ggplot2::scale_y_continuous(labels = function(x) paste0(x, " very very long label")) +
  ggplot2::labs(tag = "A", x = "mpg", y = "wt") +
  ggplot2::theme(
    plot.tag.position = ggplot2::unit(c(0.5, 1.02), "npc"), # 0.5对应面板水平中心，1.02让标签位于面板顶部上方
    plot.tag = ggplot2::element_text(hjust = 0.5, vjust = 1)
  )

方法二：用annotation_custom添加标签 #

直接在面板顶部中心添加文本标签，绕过默认的tag定位逻辑，确保标签始终对齐X轴中心：

library(ggplot2)

p <- ggplot(mtcars) +
  geom_point(aes(mpg, wt)) +
  geom_smooth(aes(mpg, wt)) +
  scale_y_continuous(labels = function(x) paste0(x, " very very long label")) +
  labs(x = "mpg", y = "wt") +
  coord_cartesian(clip = "off") # 允许标签超出面板显示范围

# 添加顶部中心标签
p + annotation_custom(
  grob = textGrob(label = "A", hjust = 0.5, vjust = 1),
  xmin = mean(range(mtcars$mpg)), xmax = mean(range(mtcars$mpg)),
  ymin = max(mtcars$wt) * 1.05, ymax = max(mtcars$wt) * 1.05
)

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