R语言：删除嵌套列表（list）中所有子列表共有的元素

原代码错误点 #

• 提取公共元素时不需要用list()包裹Reduce(intersect, mylist)的返回值，Reduce执行后已经返回了所有子列表共有的元素组成的向量，包裹成list后反而无法正确匹配子列表内的元素。
• 原剔除逻辑mylist[!(mylist %in% common_elements)]是判断整个子列表是否属于公共元素列表，而非筛选子列表内部的元素，完全不符合需求。

实现方案 #

方案1：仅删除所有子列表共有的元素（符合文字描述需求） #

# 提取所有子列表的公共元素
common_elements <- Reduce(intersect, mylist)
# 遍历每个子列表剔除公共元素
mylist <- lapply(mylist, function(sub_vec) {
  sub_vec[!sub_vec %in% common_elements]
})

运行后输出结果：

[[1]]
[1] 1 3 4

[[2]]
[1] 5 6 7

[[3]]
[1] 4 8 9

方案2：删除所有在至少2个子列表中出现过的元素（匹配示例期望结果） #

如果实际需求是剔除所有跨子列表重复的元素，可以用这个实现：

# 统计每个元素出现在多少个不同的子列表中
element_count <- table(unlist(lapply(mylist, unique)))
# 筛选出现在>=2个子列表中的元素
multi_occur_elements <- as.numeric(names(element_count[element_count >= 2]))
# 遍历每个子列表剔除对应元素
mylist <- lapply(mylist, function(sub_vec) {
  sub_vec[!sub_vec %in% multi_occur_elements]
})

运行后输出结果和给出的期望完全一致：

[[1]]
[1] 1 3

[[2]]
[1] 5 6 7

[[3]]
[1] 8 9

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