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

Find any intersection in a list of character vectors

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

例如:

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

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

显然

Reduce(intersect,l)

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

相交的元素

有什么想法吗?

对于列表中的每个元素,仅使用 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"