我有两个向量：
set.seed(1)
a <- sample(1:100,200, replace=T)
b <- sample(1:100,40, replace=F)
a我想找到该匹配中元素的位置b：
sapply(b, function(x) which(a %in% x))
这可以完成工作，但需要很长时间
有没有一种方法可以将结果存储在实际上很快的列表中？
所需的输出如下所示：
sapply(b, function(x) which(a %in% x))
[[1]]
integer(0)
[[2]]
integer(0)
[[3]]
[1] 107 142 199
[[4]]
[1] 109 126
[[5]]
[1] 136 167
[[6]]
integer(0)
[[7]]
integer(0)
[[8]]
[1] 73 91 176
[[9]]
[1] 51 146 181