计算一个向量的值在另一个向量中出现的次数

Question

我有 2 个向量

v1 <- c(164,38,20,19,163,22,21,4) 
v2 <- c(0,21,164,60,59,58,57,22,5,3,164,38,22,20,4,164,38,20,19,3,4,19,20,164,21,3,4,19,22,20,164,163,20,19,3)

我想计算向量 1 中的数字在向量 2 中出现的次数。 我尝试用循环来完成此操作，但由于表格的格式，它并没有完全起作用。

a<-table(v2)
occurrence<-numeric()
for(i in v1){
   occurrence[i]<-a[names(a)==v1[i]]
}
occurSum<-sum(occurrence)

你知道一种最好不使用循环的方法吗？

Answer 1

也许您正在寻找类似

table

和

%in%

的组合：

> table(v2[v2 %in% v1])

  4  19  20  21  22  38 163 164 
  3   4   5   2   3   2   1   5 

或者，在您的尝试的基础上，您可以尝试：

tv2 <- table(v2)
tv2[match(v1, names(tv2))]

Answer 2

尝试：

vec1 = c(2,3,4,5)
vec2 = c(1,2,2,3,3,3,3,4,5,5,5,6,7,7)

rle(sort(vec2[vec2 %in% vec1]))

#Run Length Encoding
#  lengths: int [1:4] 2 4 1 3
#  values : num [1:4] 2 3 4 5

Answer 3

如果你想知道 v1 中的任意数字在 v2 中出现了多少次，那么使用基数 R 的简单解决方案就是 sum。

给定你的向量：

v1 <- c(164,38,20,19,163,22,21,4)    
v2 <-c(0,21,164,60,59,58,57,22,5,3,164,38,22,20,4,164,38,20,19,3,4,19,20,164,21,3,4,19,22,20,164,163,20,19,3)

然后您可以使用以下方法计算出现次数：

sum(v1%in%v2)

如果您想知道特定数字（例如 4）出现了多少次，您可以这样做

sum(v2==4)