如何为R ggplot2抖动图的数据标签添加固定nudge_y偏移

你可以直接在geom_text_repel()中添加nudge_y = 0.5参数即可实现需求。当前版本的ggplot2与ggrepel支持同时指定position参数和偏移参数，偏移会在position完成坐标调整后再全局生效，只要保持两个图层的position_jitter使用相同的seed，点和标签的抖动位置会完全对齐，再叠加固定偏移就可以实现所有标签统一上移0.5的效果。

修改后的可运行代码如下：

library(ggrepel)
library(ggplot2)
library(tidyverse)

pos <- position_jitter(seed = 1, height = 0.25)
ggplot(mtcars, aes(vs, wt, group = am, label = wt)) +
  geom_jitter(position = pos) +
  geom_text_repel(
    aes(label = ifelse(wt > 3, wt, "")), 
    position = pos,
    nudge_y = 0.5 # 新增全局y轴偏移，在抖动计算后生效
  )

如果使用旧版本ggplot2/ggrepel，出现position与nudge参数冲突的问题，可以使用ggpp包的position_jitternudge()函数，把抖动规则和固定偏移整合到同一个位置对象中，兼容方案代码如下：

library(ggrepel)
library(ggplot2)
library(tidyverse)
library(ggpp)

# 整合抖动规则与固定偏移
pos_with_nudge <- position_jitternudge(
  seed = 1, 
  height = 0.25,
  nudge_y = 0.5,
  direction = "y"
)

ggplot(mtcars, aes(vs, wt, group = am, label = wt)) +
  geom_jitter(position = position_jitter(seed = 1, height = 0.25)) +
  geom_text_repel(
    aes(label = ifelse(wt > 3, wt, "")), 
    position = pos_with_nudge
  )

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