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)