逐个计算向量中多个数字的出现次数

你可以用 factor 和 table

table(factor(a, unique(b)))
#
#1 2 3 4 5 6
#3 3 2 1 2 0

自从你提到 match ,有可能没有 sapply 循环(感谢@thelatemail)

table(factor(match(a, b), unique(b)))
#
#1 2 3 4 5 6
#3 3 2 1 2 0

下面是一个基r选项,使用 sapply 具有 which :

a <- c(1, 5, 2, 1, 2, 3, 3, 4, 5, 1, 2)
b <- c(1, 2, 3, 4, 5, 6)

sapply(b, function(x) length(which(a == x)))
[1] 3 3 2 1 2 0

Demo

下面是一个矢量化方法

x = expand.grid(b,a)
rowSums( matrix(x$Var1 == x$Var2, nrow = length(b)))
# [1] 3 3 2 1 2 0