r - 具有多个元素的向量的公共(public)元素

Question

如何高效地找到两个具有重复元素的向量的公共(public)元素？

示例:

v1 <- c(1, 1, 2, 3, 3, 4)  
v2 <- c(1, 1, 1, 3, 4, 5)  
commonElements <- c(1, 1, 3, 4)

intersect 不能很好地处理重复元素。

Answer 1

我喜欢相交和表格，所以...

tv1 <- table(v1)
tv2 <- table(v2)
comvals <- intersect(names(tv1),names(tv2))
comtab <- apply(rbind(tv1[comvals],tv2[comvals]),2,min)

信息仍然存在，但采用(我认为的)更好的格式:

> comtab
1 3 4 
2 1 1 

编辑:如果您确实想要该向量，则为:as.numeric(rep(names(comtab),comtab))。