如何让geom_text标签与geom_point点在jitter效果下位置更贴近？

问题原因 #

你遇到的标签与点错位问题，核心原因是geom_point和geom_text分别调用position_jitter时，会生成两次独立的随机偏移量，导致二者位置无法对应。

解决方法 #

方法1：统一jitter随机种子（最简方案）

预先定义共用的jitter对象，设置固定随机种子，保证两个图层的偏移量完全一致：

library(ggplot2)
library(dplyr)

cn <- rownames(mpg.df)
# 定义共用jitter参数，设置任意固定seed即可
jitter_pos <- position_jitter(width = 0.5, height = 5, seed = 123)

p4 <- mpg.df %>%
  ggplot(aes(displ, hwy, color = cn)) + 
  geom_point(position = jitter_pos) + 
  geom_text(aes(label = cn), size = 2, position = jitter_pos) +
  guides(color = FALSE)
p4

方法2：提前计算偏移后坐标（可控性更高）

提前将jitter后的坐标写入数据框，两个图层直接使用新坐标绘图，还可以自定义标签和点的相对位置：

library(ggplot2)
library(dplyr)

mpg.df <- mpg.df %>%
  mutate(
    # 手动生成jitter坐标，偏移幅度和原参数对应
    displ_jitter = displ + runif(n(), min = -0.25, max = 0.25),
    hwy_jitter = hwy + runif(n(), min = -2.5, max = 2.5)
  )
cn <- rownames(mpg.df)

p4 <- mpg.df %>%
  ggplot(aes(color = cn)) + 
  geom_point(aes(x = displ_jitter, y = hwy_jitter)) +
  # 可给y加固定小偏移，让标签统一在点的上方避免遮挡
  geom_text(aes(x = displ_jitter, y = hwy_jitter + 0.3, label = cn), size = 2) +
  guides(color = FALSE)
p4

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