如何在R中识别并合并整数向量列表中的关联元素

方法一：使用igraph包（高效处理连通分量） #

这个方法把问题转化为图的连通分量识别：每个整数是图的节点，列表中同一向量的元素（或共享元素的向量）属于同一连通分量，最终合并每个连通分量的所有节点。

# 安装并加载igraph（首次使用需安装）
# install.packages("igraph")
library(igraph)

# 定义原始列表
int_list <- list(
    c(1, 15),
    c(3, 19),
    c(2, 16),
    c(4, 19),
    c(5, 21),
    c(19, 28),
    c(28, 30),
    17
)

# 1. 生成图的边列表：将每个多元素向量转换为两两组合的边
edges <- lapply(int_list, function(x) {
    if (length(x) >= 2) t(combn(x, 2)) else NULL
})
edges <- do.call(rbind, edges)

# 2. 提取所有节点并构建无向图
nodes <- unique(unlist(int_list))
g <- graph_from_edgelist(edges, directed = FALSE)
# 添加孤立节点（如单个整数17）
g <- add_vertices(g, length(setdiff(nodes, V(g)$name)), 
                  attr = list(name = as.character(setdiff(nodes, V(g)$name))))

# 3. 获取每个节点所属的连通分量
component_members <- components(g)$membership
component_groups <- split(as.numeric(names(component_members)), component_members)

# 4. 生成最终合并后的列表
result <- list()
used <- logical(length(int_list))

for (i in seq_along(int_list)) {
    if (used[i]) next
    # 找到当前元素对应的连通分量
    current_comp <- component_members[as.character(int_list[[i]][1])]
    # 筛选所有属于该分量的列表元素
    related_items <- int_list[sapply(int_list, function(x) any(component_members[as.character(x)] == current_comp))]
    # 合并、去重并排序
    merged_vec <- sort(unique(unlist(related_items)))
    result <- c(result, list(merged_vec))
    used[sapply(int_list, function(x) any(component_members[as.character(x)] == current_comp))] <- TRUE
}

# 输出结果
result

代码说明：

• 边列表生成：确保同一向量内的元素两两连通，为后续识别共享元素的关联关系打下基础。
• 图构建：包含所有整数节点，孤立节点（单个整数）单独处理。
• 连通分量分组：把所有共享元素的整数归为同一组。
• 结果生成：遍历原列表，合并同一组的所有元素，去重排序后得到最终列表。

方法二：基础R实现（无需额外包） #

通过循环检查列表元素的交集，反复合并有共享元素的向量，直到没有可合并的元素为止。

# 定义原始列表
int_list <- list(
    c(1, 15),
    c(3, 19),
    c(2, 16),
    c(4, 19),
    c(5, 21),
    c(19, 28),
    c(28, 30),
    17
)

merged_list <- int_list
changed <- TRUE

# 循环合并直到无变化
while (changed) {
    changed <- FALSE
    i <- 1
    while (i <= length(merged_list)) {
        j <- i + 1
        while (j <= length(merged_list)) {
            # 检查两个向量是否有共享元素
            if (length(intersect(merged_list[[i]], merged_list[[j]])) > 0) {
                # 合并、去重并排序
                merged_list[[i]] <- sort(unique(c(merged_list[[i]], merged_list[[j]])))
                # 删除被合并的元素
                merged_list <- merged_list[-j]
                changed <- TRUE
            } else {
                j <- j + 1
            }
        }
        i <- i + 1
    }
}

# 输出结果
merged_list

代码说明：

• 外层循环控制是否继续合并：只要发生过合并操作，就重新检查整个列表。
• 内层循环两两检查元素：发现有交集的向量就合并，删除被合并的元素，标记状态为已更改。
• 最终得到所有无交集的合并向量。

两种方法运行后都会得到你期望的结果：

[[1]]
[1]  1 15

[[2]]
[1]  3  4 19 28 30

[[3]]
[1]  2 16

[[4]]
[1]  5 21

[[5]]
[1] 17

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