計數一個矢量的值的出現在另一個向量

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