如何计算 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]])))