Giao lộ R của danh sách

Question

Tôi có 2 danh sách, mỗi danh sách có nhiều biến (tôi nghĩ đây là cụm từ chính xác). Và tôi muốn tìm giao lộ cho mỗi biến. Xem ví dụ bên dưới:

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 

Tôi đã thử những điều sau, nhưng rõ ràng là sai. Bất kỳ đề xuất sẽ được đánh giá rất cao. Cảm ơn.

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

Answer 1

gì về:

mapply(intersect, x,y)