R 列表的交集

Question

我有 2 个列表，每个列表都有多个变量(我认为这是正确的术语)。我想找到每个变量的交集。请参阅下面的示例:

x<-list(A=c(1,2,3),B=c(4,5,6),C=c(7,8,9)) #input
y<-list(A=c(1,3,6,7),B=c(5,7,8),C=c(7,9,10)) #input
xinty<-list(A=c(1,3),B=5,C=c(7,8)) # desired output

我尝试了以下方法，但显然是错误的。任何建议将不胜感激。谢谢。

xinty<-lapply(x,function(x) intersect(x,y))

Answer 1

关于什么:

mapply(intersect, x,y)