如何在ggplot绘图中添加各孔专属的预计算阈值水平线？

问题背景 #

已通过ggplot绘制散点图，当前使用geom_hline添加了全局平均阈值线，但每个孔（well）的专属阈值存储在repthresh数据框中，需替换为每个孔对应的单独阈值水平线。

解决方案 #

步骤1：预处理阈值数据 #

由于repthresh中同一孔的阈值重复出现，先提取每个孔的唯一阈值并统一列名：

# 加载dplyr（未加载则先运行install.packages("dplyr")）
library(dplyr)

# 提取每个Well的唯一阈值，与主数据框列名匹配
repthresh_unique <- repthresh %>%
  distinct(Well, .keep_all = TRUE) %>%
  rename(well = Well) %>%  # 对齐BlinkRes中的x轴列名
  select(well, Fluorescence.Threshold..AU.)

步骤2：修改ggplot代码替换阈值线 #

移除原有的全局阈值线代码，改用geom_segment绘制每个孔对应的精准阈值线：

BlinkRep <- ggplot(data = BlinkRes, aes(x = well, y = FluoCont, fill = Validity))+
  geom_point(position = position_jitter(), shape = 21)+
  scale_fill_manual(values = scalecols1,
                    breaks = scalebreaks1,
                    labels = scalelabs1)+
  ylab("Fluorescence Signal")+
  xlab("Well")+
  theme_light()+
  theme(axis.title.y = element_text(size = 16, family = "sans"), 
        legend.text = element_text(size = 16, family = "sans"),
        axis.text.x = element_text(colour="black", size = 16, family = "sans"),
        axis.text.y = element_text(colour="black", size = 16, family = "sans"),
        axis.title.x = element_text(colour = "black", size = 16, family = "sans"),
        legend.title = element_text(size = 16, family = "sans"),
        panel.background = element_blank(),
        axis.line = element_line(colour = "black"),
        plot.title = element_text(size = 10, hjust = 0.5))+
  # 替换原geom_hline，绘制每个孔的专属阈值线
  geom_segment(data = repthresh_unique, 
               aes(x = well, xend = well, y = Fluorescence.Threshold..AU., yend = Fluorescence.Threshold..AU.),
               colour = "red", linetype = "dashed", linewidth = 1)+
  guides(fill=guide_legend(title="Bead Validity"))

BlinkRep
ggsave("Results/RepResults.png", plot = BlinkRep, dpi = 500, height = 7, units = "in", width = 14)

方案说明 #

• 选用geom_segment的原因：离散x轴的每个孔对应独立位置，geom_segment可精准将阈值线限定在对应孔的x轴范围内，避免绘制贯穿整个图表的全局线，更贴合"每个孔对应单独阈值线"的需求。
• 数据预处理：通过distinct去重确保每个孔仅绘制一条阈值线，统一列名避免映射时的匹配错误。

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