在R中对data.frame每行两两元素生成边列表的技术求助

刚接触R第一天就想着用图分析群体关系，思路超清晰！我给你准备了两种简单易懂的方法——一种用tidyverse工具包（代码逻辑更直观，新手友好），另一种用基础R（不用额外装包），你挑顺手的来就行。

先模拟你的数据（方便演示） #

因为你没给出具体的dput输出，我先造一个和你描述一致的示例数据框：每行对应一组人，人数2-8不等，空缺位置用NA表示：

data <- data.frame(
  member1 = c("Alice", "Bob", "Charlie"),
  member2 = c("Bob", "Charlie", "Diana"),
  member3 = c("Charlie", NA, "Eve"),
  member4 = c(NA, NA, "Frank"),
  member5 = c(NA, NA, "Grace"),
  stringsAsFactors = FALSE
)

方法一：用tidyverse工具包（推荐） #

这个方法的核心逻辑是：先把宽格式的行数据转成“长格式”，再对每组生成所有两两人员组合。

步骤1：安装并加载tidyverse #

如果还没装过这个包，先执行安装命令：

install.packages("tidyverse")
library(tidyverse)

步骤2：把宽数据转成长格式（去掉空值） #

我们给每行加一个唯一的分组ID，然后把所有人员列合并成一列，同时过滤掉NA空值：

long_data <- data %>%
  mutate(group_id = row_number()) %>%  # 给每行加分组标识，方便识别同组人员
  pivot_longer(
    cols = -group_id,  # 除了group_id之外的所有列都转成长格式
    names_to = "temp_col",  # 原列名暂存（后续没用可以忽略）
    values_to = "person"  # 人员名字存到person列
  ) %>%
  filter(!is.na(person))  # 去掉空值

步骤3：生成两两组合的边列表 #

对每个分组（同group_id），生成所有人员的两两配对，同时过滤掉重复的反向边（比如Alice-Bob和Bob-Alice只保留一条）：

edge_list <- long_data %>%
  group_by(group_id) %>%
  expand(person1 = person, person2 = person) %>%  # 生成所有可能的人员配对
  filter(person1 < person2) %>%  # 只保留名字排序在前的配对，避免重复
  ungroup() %>%
  select(person1, person2)  # 只保留边的两个顶点列

执行完后，edge_list就是你需要的边列表啦！

方法二：用基础R（无需额外装包） #

如果不想装新包，用基础R的combn函数也能轻松搞定：

步骤1：定义处理单行的函数 #

这个函数会接收一行的人员数据，去掉空值后生成所有两两组合：

generate_edges <- function(row_data) {
  # 去掉该行的所有空值
  people <- na.omit(row_data)
  # 生成所有2人组合，转置成每行一条边的矩阵
  combn(people, 2) %>% t()
}

步骤2：遍历所有行并合并结果 #

用apply遍历数据框的每一行，再用do.call(rbind, ...)把所有行的结果合并成一个数据框：

edge_list_base <- do.call(rbind, apply(data, 1, generate_edges))
# 给列起清晰的名字
colnames(edge_list_base) <- c("person1", "person2")

得到的edge_list_base和方法一的结果完全一致！

小补充 #

生成边列表后，你可以用igraph包快速创建并可视化图：

install.packages("igraph")
library(igraph)
graph <- graph_from_data_frame(edge_list, directed = FALSE)
plot(graph)  # 一键生成群体关系图

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