如何利用指定函数将矩阵转换为分组列表输出？

现有按行排列的2×7矩阵Y，元素为：6 8, 2 5, 2 10, 4 10, 7 8, 4 9, 1 3，可通过以下R代码定义：

y = c(6, 8, 2, 5, 2 ,10, 4, 10, 7, 8, 4, 9, 1, 3)
Y = t(matrix(y, nrow=2))

期望输出为按顺序分组的列表：6 8 7, 5 2 10 4 9, 1 3。

我尝试过用接收两个向量并按公共元素合并的函数实现，也试过循环但无法正确管理列表，想了解是否有更优方法（比如用lapply），恳请提供思路或解决方案。

这个需求本质是找图的连通分量：把矩阵的每一行看作两个节点之间的无向边，最终的分组就是每个连通分量包含的所有节点。这种方法逻辑清晰，比手动循环或单纯用lapply更高效。

步骤与代码实现 #

1. 借助igraph包处理图结构（未安装的话先运行install.packages("igraph")）：

library(igraph)

# 定义矩阵Y
y = c(6, 8, 2, 5, 2 ,10, 4, 10, 7, 8, 4, 9, 1, 3)
Y = t(matrix(y, nrow=2))

# 将矩阵转为边列表，构建无向图
graph_obj <- graph_from_edgelist(Y, directed = FALSE)

# 拆分出所有连通分量
component_list <- decompose(graph_obj)

# 按节点在原始矩阵中首次出现的顺序整理每个分量
result <- lapply(component_list, function(comp) {
  nodes <- as.integer(V(comp)$name)
  # 匹配原始矩阵中节点的首次出现位置，以此排序
  nodes[order(match(nodes, as.vector(Y)))]
})

# 查看结果
result

运行后输出：

[[1]]
[1] 6 8 7

[[2]]
[1] 5 2 10 4 9

[[3]]
[1] 1 3

思路说明 #

• 矩阵每行的两个元素视为一条无向边，比如6 8和7 8会让6、8、7连通成一个组；
• decompose函数直接拆分出所有独立的连通分量，避免手动循环维护分组的繁琐；
• 最后通过match和order保证分组内的节点顺序和它们在原始矩阵中首次出现的顺序一致，符合期望输出要求。

如果不想依赖第三方包，也可以手动实现连通分量的查找逻辑，但代码会冗余很多，igraph的方案更简洁高效。

内容的提问来源于stack exchange，提问作者B. Jenkins