如何计算R中列表元素的交叉

Question

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

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

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]])))