如何用ggplot2在Y轴添加无刻度的额外标签

要在Y轴指定位置添加无刻度且样式独立的标签，最直接的方式是用annotate()函数将文本定位到Y轴外侧，同时保留原有刻度标签的设置。以下是基于你提供的代码修改后的完整实现：

# Sample dataframe
df <- data.frame(
  x = c(1, 2.6, 3, 4, 5),
  y = c(2, 5, 3.6, 8.2, 10),
  y_ticks = c(2, 4, 5, 8, 10),
  y_labels = c("Low", "Mid-Low", "Medium", "Mid-High", "High")
)

library(ggplot2)

ggplot(df, aes(x, y)) +
  geom_point() +
  # 保留原有自定义刻度标签
  scale_y_continuous(breaks = df$y_ticks, labels = df$y_labels) +
  # 添加无刻度的自定义标签
  annotate(
    "text",
    x = -0.1,  # 调整x坐标将文本放在Y轴外侧，根据x轴范围微调
    y = 6,     # 指定标签对应的Y轴位置
    label = "lower values",
    color = "darkred",  # 独立设置文本颜色
    size = 4,           # 独立设置文本大小
    hjust = 1           # 右对齐，让文本紧贴Y轴
  ) +
  # 调整左侧边距，避免文本被截断
  theme(plot.margin = margin(5.5, 5.5, 5.5, 20))

关键说明： #

• annotate()无需绑定数据框，直接指定位置和文本，适合添加单个自定义标签。
• 通过x = -0.1将文本放在Y轴左侧外侧，具体数值可根据你的x轴范围微调（比如x轴从0开始的话，可改用-0.05）。
• hjust = 1让文本右对齐，确保和Y轴边缘对齐，视觉上更协调。
• 原有scale_y_continuous的breaks参数不包含6，所以该位置不会生成刻度线，完全满足无刻度要求。
• 可通过color、size、fontface等参数独立设置标签样式，和原有刻度标签区分开。

如果需要添加多个无刻度标签，只需重复annotate()语句，分别指定不同的y位置和文本即可。

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