如何用更少代码在Base R中合并关联列表元素并清理无效项？

需求说明 #

在不依赖额外包的Base R中，将列表中相互关联的元素（即共享至少一个值的元素组）合并为独立的列表项，同时自动移除NA和零长度元素，支持数值、字符等多种数据类型。

精简实现代码 #

merge_connected <- function(lst) {
  # 过滤NA、空元素
  lst <- Filter(x => length(x) > 0 && !any(is.na(x)), lst)
  if (length(lst) == 0) return(list())
  
  # 初始化每个值为独立组
  all_vals <- unique(unlist(lst))
  groups <- setNames(as.list(all_vals), all_vals)
  
  # 遍历列表元素，合并关联组
  for (x in lst) {
    if (length(x) > 1) {
      combined <- unique(unlist(groups[x]))
      for (val in x) groups[[val]] <- combined
    }
  }
  
  # 去重并排序，得到最终结果
  unique(lapply(groups, sort))
}

测试示例 #

输入1（数值型）

lst1 <- list(c(1),c(1,2),c(1,2),c(2,3,4),c(8,9,10),c(10,11),c(NA))
merge_connected(lst1)

输出1

list(c(1,2,3,4), c(8,9,10,11))

输入2（字符型）

lst2 <- list(c("a"),c("a","b"),c("a","b"),c("b","c","d"),c("h","i","j"),c("j","k"),c(NA))
merge_connected(lst2)

输出2

list(c("a","b","c","d"), c("h","i","j","k"))

代码逻辑说明 #

1. 清理无效元素：用Filter快速剔除零长度、含NA的列表项；
2. 初始化分组：将每个唯一值初始化为独立分组；
3. 合并关联组：遍历每个有效列表元素，把元素内所有值对应的分组进行合并，确保共享值的元素最终归为同一组；
4. 去重整理：通过unique去除重复分组，sort保证输出顺序与示例一致（若不需要排序可删除该步骤）。

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