R ggplot2中使用geom_segment为不同分面的聚类绘制对应线段

1. 数据预处理 #

你需要提前整理两份结构化数据：

• 原始散点数据框：包含所有点的x、y、facets、factors字段
• 聚类汇总数据框：每一行对应一个聚类，必须包含facets、factors、y、xmean四个字段，每个聚类对应唯一的x轴均值
  可参考如下构造示例：

# 构造模拟原始散点数据
set.seed(123)
raw_df <- data.frame(
  x = 1:24,
  y = rep(c(1,2,1,2,1,2), each=4), # 每个分面2组聚类，同组y值一致
  facets = rep(1:3, each=8), # 共3个分面
  factors = rep(1:6, each=4) # 共6个聚类
)
# 构造汇总表：计算每个聚类的x均值
summary_df <- aggregate(x ~ facets + factors + y, data = raw_df, FUN = mean)
colnames(summary_df)[4] <- "xmean"

2. 完整绘图代码 #

在geom_segment中指定调用汇总数据即可，垂直线只需把x和xend都设为xmean，y和yend可根据需要的线段长度调整：

library(ggplot2)
ggplot(raw_df, aes(x = as.numeric(x), y = as.numeric(y), color = factor(factors))) +
  geom_point(alpha = 0.85, size = 1.85) +
  # 绘制每个聚类的垂直线段
  geom_segment(data = summary_df, 
               aes(x = xmean, xend = xmean, 
                   y = y - 0.3, yend = y + 0.3, # 线段上下各延伸0.3单位，可自行修改
                   color = factor(factors)),
               linewidth = 1,
               inherit.aes = FALSE) + # 关闭全局aes继承，避免参数冲突
  facet_grid(~ facets)

如果需要线段从分面底部延伸到聚类所在y位置，直接把y参数改为0即可，线段的粗细、颜色、长度都可以按需调整。

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