R Kreuzung der Listen

Question

Ich habe 2 Listen, jede mit mehreren Variablen (ich denke, das ist der richtige Begriff). Und ich möchte den Schnittpunkt für jede Variable finden. Sehen Sie das Beispiel unten:

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 

Ich habe Folgendes versucht, aber es ist offensichtlich falsch. Irgendwelche Vorschläge würden sehr geschätzt werden. Vielen Dank.

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

Answer 1

Was:

mapply(intersect, x,y)