如何从多个向量和矩阵中找到共同元素？

Question

有谁能告诉我如何找出多个向量中的公共元素以及R中矩阵的每个行元素？

a <- c(1,3,5,7,9)
b <- c(3,6,8,9,10)
c <- matrix(c(2, 4, 3, 1, 5, 7), nrow=3, ncol=2) 

所以，我可以找到

之间的交叉点

intersect(intersect(a,b),c[[1]]) for row1 of the C matrix
intersect(intersect(a,b),c[[2]]) for row2 of the C matrix

带有for循环的所有其他行的

等等。

Answer 1

apply(c,1,function(x){
intersect(intersect(a,b),x)
})

Answer 2

我们可以使用Map

 Map(intersect, split(c, row(c)), list(intersect(a,b)))