代码之家 › 专栏 › 技术社区 › dan

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

intersect reduce list r

dan · 技术社区 · 5 年前

我有一个 list 属于 character vector s、有些有相交的元素,但不一定有贯穿整个区域的相交元素 列表 .

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

我想找到任何相交的元素。在本例中: a

很明显

Reduce(intersect,l)

列表 .

1 回复 | 直到 5 年前

Ronak Shah 5 年前

对于列表中的每个元素,使用 table 只选择出现在多个列表中的值。

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"

推荐文章

PeptideWitch · Kotlin ArrayList<哈希集<数据类>>。reduce函数不使用ArrayList的子集

8 年前

Sockness_Rogers · 获取多个数组中给定索引处所有元素的平均值

8 年前

Dmitry Dmitriev · Ruby,无法解释的reduce行为

8 年前

whok mok · 使用reduce()时将字符串转换为Int

8 年前

AVIK DUTTA · Spark map作业异常:对象不可序列化

8 年前

bax · Javascript reduce不断返回未定义的

8 年前

Ossama · 在PIL中调整调整大小的PNG图像的质量

8 年前

RAQ · Scala ReduceLeft的行为

8 年前

Radu Ionescu · 使用接口的Stream reduce操作

8 年前

Sameer · 是否使用javascript替换某些对象和数组?

8 年前