在字符向量列表中查找任何交集

Question

我有 list 个 character vector，其中一些具有交叉元素，但不一定在整个 list 中有交叉元素。

例如：

l <- list(c("a"),c("a","b"),c("a","c"),c("d"),c("e"),c("h","i"))

我想找到任何相交的元素。对于这个例子，这将是： a

显然

Reduce(intersect,l)

不适合这样做，因为它会查找与整个 list.

相交的元素

有什么想法吗？

Answer 1

对于列表中的每个元素，仅使用 table 和 select 找出出现在多个列表中的那些值。

vals <- unique(unlist(l))

intersect_vals <- names(Filter(function(x) x > 1, 
                  rowSums(sapply(l, function(x) table(factor(x, vals))) > 0)))

intersect_vals
#[1] "a"

在字符向量列表中查找任何交集

Find any intersection in a list of character vectors

reduce

r

list

intersect