r - 如何计算R中列表元素的交集

Question

我有 10 个名为 : Thre1, Thre2, Thre3, ..., 的列表Thre10。

我的输出也应该是一个列表，输出的第 i 个元素应该与i我的输入列表的第 th 个元素相交，例如：

output[[1]] = Reduce(intersect, 
                     list=(Thre1[[1]],Thre2[[1]],Thre3[[1]],...,Thre10[[1]])

如何编写代码以防止Threi[[j]]手动重复输入？

Answer 1

假设所有列表的长度相同：

lapply(1:length(Thre1), function(i)
   Reduce(intersect, list(Thre1[[i]], ..., Thre10[[i]])))