Подсчитать вхождение значений одного вектора в другой вектор
У меня 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)
Знаете ли вы способ сделать это желательно без использования цикла?