如何用ggplot将箱线图中一个观测点关联至两个对应观测点？

你的需求是让每个rg组里的单个g观测点，和同组的两个ng观测点分别用线条连接。现有代码因为默认按rg分组，会把同组的三个点连成一条折线，无法实现一对二的连线。解决核心是先预处理数据，让每个g点和对应的每个ng点形成独立的配对组，再用ggplot绘制线条。

数据预处理步骤 #

首先拆分并扩展数据，让每个g点复制对应次数（同组有2个ng就复制2次），再和ng点一一配对，转换为ggplot可用的长格式：

library(dplyr)
library(tidyr)
library(ggplot2)

# 拆分g和ng子集
g_subset <- dataobject %>% filter(GvNG == "g")
ng_subset <- dataobject %>% filter(GvNG == "ng")

# 扩展g数据：每个g行复制2次（对应2个ng）
g_expanded <- g_subset %>% slice(rep(row_number(), each = 2))

# 合并扩展后的g与ng数据，按rg对齐
line_dataset <- bind_cols(g_expanded, ng_subset) %>%
  # 重命名避免列名冲突
  rename(PielouE_g = PielouE...3, PielouE_ng = PielouE...6,
         GvNG_g = GvNG...2, GvNG_ng = GvNG...5) %>%
  # 转换为长格式，方便绘制线条
  pivot_longer(cols = c(PielouE_g, PielouE_ng),
               names_to = "type", values_to = "PielouE") %>%
  mutate(GvNG = ifelse(type == "PielouE_g", "g", "ng")) %>%
  # 为每个rg下的两条连线创建唯一分组标识
  group_by(rg) %>% mutate(link_group = paste(rg, row_number())) %>% ungroup()

完整ggplot代码 #

保留原有的箱线图和散点，线条部分使用预处理后的line_dataset，通过link_group确保每条连线独立：

ggplot(dataobject, aes(x = GvNG, y = PielouE)) +
  # 箱线图（隐藏默认 outliers，避免和散点重复）
  geom_boxplot(aes(fill = GvNG), alpha = 0.4, width = 0.4, outlier.shape = NA) +
  # 散点：添加轻微抖动避免重叠
  geom_point(aes(group = rg), position = position_jitter(width = 0.1), size = 2) +
  # 绘制一对二的连线：用link_group作为分组依据
  geom_line(data = line_dataset, aes(group = link_group), color = "black", size = 0.5) +
  # 自定义填充色
  scale_fill_manual(values = c("ng" = "blue", "g" = "yellow")) +
  theme_minimal() +
  labs(x = "Condition", y = "Pielou's Evenness", fill = "Condition")

效果说明 #

预处理后，每个rg组内的g点会生成两条独立的连线，分别连接到同组的两个ng点，完美实现你要的关联展示效果。

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