R语言ggplot2分类Y轴抖动图的数据标签添加nudge_y偏移方法

共有两种可实现标签与对应点无错位的方案：

方案1：直接叠加nudge_y（最简写法） #

新版ggplot2与ggrepel支持position参数与nudge_y参数共存，会先应用抖动偏移，再叠加固定的Y轴偏移，无需额外修改数据：

library(ggrepel)
library(ggplot2)

pos <- position_jitter(seed = 1, height = 0.25)

ggplot(iris, aes(x=Sepal.Length, y=Species, label = Sepal.Width)) +
  geom_jitter(position = pos) +
  geom_text_repel(aes(label = ifelse(Sepal.Width > 3, Sepal.Width, "")), 
                  position = pos,
                  nudge_y = 0.15, # 自定义向上偏移量
                  direction = "y", # 可选：限制标签仅沿Y轴调整，避免X轴错位
                  max.overlaps = Inf)

方案2：预计算抖动值（稳定兼容所有版本） #

分类变量在ggplot内部会映射为1、2、3...的整数编码，我们可以手动生成与position_jitter规则完全一致的抖动值，再给文本位置叠加固定偏移，从根源保证标签与点的对应关系：

library(ggrepel)
library(ggplot2)
library(dplyr)

set.seed(1) # 和原position_jitter的seed保持一致，保证抖动位置完全匹配
iris_processed <- iris %>%
  mutate(
    # 把分类Species转为内部整数编码
    species_num = as.integer(Species),
    # 生成与height=0.25的jitter完全一致的Y轴抖动偏移
    jitter_y = runif(n(), min = -0.25/2, max = 0.25/2),
    # 定义需要显示的标签
    show_label = ifelse(Sepal.Width > 3, Sepal.Width, "")
  )

ggplot(iris_processed, aes(x = Sepal.Length)) +
  # 原始点位置：编码值+抖动值
  geom_point(aes(y = species_num + jitter_y)) +
  # 文本位置：编码值+抖动值+自定义向上偏移
  geom_text_repel(aes(y = species_num + jitter_y + 0.15, label = show_label),
                  direction = "y",
                  max.overlaps = Inf) +
  # 还原Y轴的分类标签显示
  scale_y_continuous(breaks = 1:3, labels = levels(iris$Species),
                     name = "Species")

两种方案均可以保证标签与对应数据点严格绑定，不会出现错位问题。

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