如何在ggplot()中为y轴添加上下方向的指向性标签

不需要修改原有y轴刻度配置，也不会出现标签被裁切的问题，按以下步骤操作即可：

• 首先关闭绘图区域的默认裁切限制：在绘图代码中加入coord_cartesian(clip = "off")，允许绘图边界外的元素正常渲染，解决用geom_text()/geom_label()时超出范围不显示的问题。
• 预留标签显示空间：通过theme(plot.margin = ...)调整绘图区左侧边距，给y轴外侧的标签留出足够位置，避免标签被画布边缘截断。
• 添加自定义标签：推荐用annotation_custom()搭配grid包的文本grob实现，标签的字体、大小、颜色、对齐方式都可以单独配置，完全可以匹配坐标轴标题的样式，不会和普通刻度标签混淆。

可复现代码示例 #

library(ggplot2)
library(grid)

# 基础绘图（保留原有的y轴刻度配置即可，不需要改动breaks）
base_plot <- ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(size = 2) +
  # 关闭裁切，允许绘图区外显示元素
  coord_cartesian(clip = "off", xlim = range(mtcars$wt)) +
  # 调整左侧边距，给轴旁标签留位置
  theme(
    plot.margin = margin(l = 4, r = 1, t = 1, b = 1, unit = "lines"),
    axis.title.y = element_text(margin = margin(r = 12))
  )

# 绑定y轴最大值的上方向标签
final_plot <- base_plot +
  annotation_custom(
    grob = textGrob(
      label = "↑ 更高数值",
      gp = gpar(fontsize = 11, col = "#2c3e50")
    ),
    xmin = min(mtcars$wt) - 0.7, # 定位到y轴外侧的x位置
    xmax = min(mtcars$wt) - 0.7,
    ymin = max(ggplot_build(base_plot)$layout$panel_params[[1]]$y.range),
    ymax = max(ggplot_build(base_plot)$layout$panel_params[[1]]$y.range)
  ) +
  # 绑定y轴最小值的下方向标签
  annotation_custom(
    grob = textGrob(
      label = "↓ 更低数值",
      gp = gpar(fontsize = 11, col = "#2c3e50")
    ),
    xmin = min(mtcars$wt) - 0.7,
    xmax = min(mtcars$wt) - 0.7,
    ymin = min(ggplot_build(base_plot)$layout$panel_params[[1]]$y.range),
    ymax = min(ggplot_build(base_plot)$layout$panel_params[[1]]$y.range)
  )

# 输出图表
print(final_plot)

实现说明：如果需要标签严格对齐y轴的最大/最小刻度线，只需要把上述代码中y定位的数值替换成自定义breaks的最大、最小值即可；如果需要给标签加背景、箭头等装饰，只需要替换textGrob为对应的自定义grob对象，自由度远高于修改轴刻度标签的方案。
如果不想引入grid包，也可以在开启clip = "off"后直接用geom_text()添加标签，把x参数设为轴外位置即可，缺点是标签位置会随画布缩放轻微移位，对齐精度不如annotation_custom()方案。

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