如何用gghighlight的label_key为geom_dotplot高亮点添加标签？

问题背景 #

gghighlight的label_key参数可正常为geom_point()的高亮点添加标签，但对geom_dotplot()无效——这是因为geom_dotplot()会对原始数据做聚合处理（计算点的堆叠位置），生成的绘图数据已丢失与原始标签字段的关联，导致label_key无法生效。

解决方案1：提取绘图数据后手动关联标签 #

通过ggplot_build()提取geom_dotplot生成的点坐标，再匹配原始数据的标签，用geom_text_repel添加（避免标签重叠）：

library(ggplot2)
library(gghighlight)
library(ggrepel)

dat <- data.frame(x = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 10),
                  y = 1:26,
                  lbl = letters)

# 生成基础高亮图
base_plot <- ggplot(dat, aes(x = x)) +
  geom_dotplot() +
  gghighlight(x > 4)

# 提取dotplot的绘图数据
plot_data <- ggplot_build(base_plot)$data[[1]]

# 筛选高亮组的点数据（gghighlight将高亮内容放在第二个PANEL）
highlight_plot_data <- subset(plot_data, PANEL == 2)

# 匹配原始高亮数据的标签（按x分组的顺序对应）
highlight_raw_data <- subset(dat, x > 4)
highlight_plot_data$lbl <- highlight_raw_data$lbl

# 添加标签
base_plot +
  geom_text_repel(data = highlight_plot_data, 
                  aes(x = x, y = y, label = lbl),
                  nudge_x = 0.2, size = 3)

解决方案2：分图层绘制并直接添加标签 #

提前拆分普通数据和高亮数据，分别绘制dotplot，再用stat_dotplot获取高亮点的位置来添加标签：

library(ggplot2)
library(ggrepel)

dat <- data.frame(x = c(1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 10),
                  y = 1:26,
                  lbl = letters)

ggplot() +
  # 绘制普通灰色点
  geom_dotplot(data = subset(dat, x <= 4), aes(x = x), fill = "gray") +
  # 绘制高亮红色点
  geom_dotplot(data = subset(dat, x > 4), aes(x = x), fill = "red") +
  # 基于stat_dotplot的位置添加标签
  geom_text_repel(stat = "dotplot",
                  data = subset(dat, x > 4),
                  aes(x = x, label = lbl),
                  nudge_x = 0.2, size = 3)

两种方案都能实现给geom_dotplot高亮点添加标签的需求，方案2更直观，无需提取绘图数据；方案1则保留了gghighlight的原有高亮逻辑。

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