ggplot2如何在geom_dotplot的点内部添加geom_text标签

geom_dotplot()的点位是图层内部计算生成的，不会向外输出调整后的x轴坐标，直接叠加geom_text()时标签会默认落在分类x轴的原始位置，没法对齐到点中心。以下两种方案都可以实现需求：

方案1：用ggbeeswarm统一控制点和标签位置（最简单） #

不需要手动计算点位，给点图层和文本图层传入完全一致的蜂群图位置参数、固定排布规则，就能让标签和点完全对齐，同响应值的点会沿x轴并排、整体居中对齐箱线图，效果和dotplot接近。

library(tidyverse)
library(ggbeeswarm)

set.seed(1)
CRD2 <- data.frame(Response = c(rnorm(10, 5, 1), rnorm(10, 4, 1), rnorm(10, 3, 1)),
                   Treatment = c(rep("A", 10), rep("B", 10), rep("C", 10)),
                   Labels = rep(1:5, each = 2))

# 预定义统一的位置规则，调整width和cex可以控制点的分布宽度和间距
pos <- position_beeswarm(width = 0.3, cex = 2.5)

CRD2 %>% 
  ggplot(aes(x = Treatment, y = Response, fill = Treatment)) +
  geom_boxplot(alpha = 0.3, outlier.shape = NA) + # 隐藏箱线图自带离群点，避免和后续点重复
  geom_point(aes(color = Treatment), position = pos, size = 6) + # 点大小设为足够容纳内部标签
  geom_text(aes(label = Labels), size = 3, fontface = "bold", color = "white", position = pos)

运行后同y值的点会自动沿x轴均匀错开，整体在箱线图中心区域排布，因为点和文本调用了完全相同的位置计算逻辑，不会出现普通jitter那种偏移不匹配的问题。

方案2：手动计算点位（100%匹配原生geom_dotplot效果） #

如果需要完全复现geom_dotplot(binaxis = "y", stackdir = "center")的堆叠逻辑，可以先在数据层面手动计算每个点的x轴偏移量，再同时传给点和文本图层，完全不依赖图层内部的位置计算，标签可以精准落在点中心。

set.seed(1)
CRD2 <- data.frame(Response = c(rnorm(10, 5, 1), rnorm(10, 4, 1), rnorm(10, 3, 1)),
                   Treatment = c(rep("A", 10), rep("B", 10), rep("C", 10)),
                   Labels = rep(1:5, each = 2))

# 按照dotplot的逻辑手动计算每个点的排布位置
CRD2 <- CRD2 %>%
  group_by(Treatment) %>%
  # 按y值分箱，binwidth和geom_dotplot默认规则对齐
  mutate(bin_id = as.integer(as.factor(ggplot2:::bin(Response, binwidth = 1/6)))) %>%
  group_by(Treatment, bin_id) %>%
  # 同箱内的点沿x轴居中排布
  mutate(n_in_bin = n(),
         x_offset = (row_number() - (n_in_bin + 1)/2) * 0.1, # 调整乘数可控制点间距
         x_pos = as.integer(as.factor(Treatment)) + x_offset) %>%
  ungroup()

CRD2 %>%
  ggplot(aes(x = Treatment, y = Response, fill = Treatment)) +
  geom_boxplot(alpha = 0.3, outlier.shape = NA) +
  geom_point(aes(x = x_pos, color = Treatment), size = 6) +
  geom_text(aes(x = x_pos, label = Labels), size = 3, fontface = "bold", color = "white")

提示：如果觉得点的颜色和填充色太接近，可以把文本颜色改成和点对比度更高的颜色，点的大小随标签长度调整即可，避免标签超出点边界。

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