如何移除数据集中的双向交互重复配对？

要处理这种双向重复的交互记录，核心思路是标准化每对参与者的顺序，让A→B和B→A变成完全一致的配对标识，再进行去重操作。以下是具体实现方法：

方法一：保留单条记录（任选其一） #

如果只需要保留每对交互的任意一条记录，可以用pmin()和pmax()对每行的from和to按字典序排序，生成标准化配对后去重：

library(dplyr)

# 取消原数据的分组
df <- df %>% ungroup()

# 生成标准化配对并去重
df_unique <- df %>%
  mutate(
    # 生成字典序更小的参与者为第一列，更大的为第二列
    part1 = pmin(from, to),
    part2 = pmax(from, to)
  ) %>%
  # 按标准化配对去重，保留原数据所有列
  distinct(part1, part2, .keep_all = TRUE) %>%
  # 可选：删除临时生成的标准化列
  select(-part1, -part2)

方法二：合并双向交互的计数 #

如果需要把A→B和B→A的交互次数合并，可以在标准化配对后按组求和：

df_combined <- df %>%
  ungroup() %>%
  mutate(
    part1 = pmin(from, to),
    part2 = pmax(from, to)
  ) %>%
  group_by(part1, part2) %>%
  # 合并交互次数
  summarize(total_interactions = sum(n), .groups = "drop") %>%
  # 可选：重命名为原列名格式
  rename(from = part1, to = part2)

原理说明 #

pmin()和pmax()会逐行比较from和to的字符串字典序，将较小的赋值给part1，较大的赋值给part2。这样不管交互是A→B还是B→A，都会生成完全相同的part1和part2，后续用distinct()或group_by()就能轻松处理重复项。

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