r - apply() 查找 2 个向量中最接近的值

Question

我有两个向量，我需要编写一段代码来查找第二个向量中最接近第一个向量的值的值的位置。我还需要它具有相当高的计算效率，因为数据集很大，所以我试图避免循环。

 v1 <- c(-.2, -.5, -.12, -.8, -.04, -.9, -.2, -.77, -.3, -.01)
 v2 <- c(-.015, -.06, -.12, -.2, -.3, -.4, -.52, -.65, -.78, -.92)

我想要一个代码来遍历第一个向量中的值并告诉我 v2 中哪个值最接近它们，所以我想回答为:

 > answer <- 4, 7, 3, 9, 2, 10, 4, 9, 5, 1

我知道我可以使用第一个向量和which.min 的循环，如下所示:

 for(i in 1:length(v1){
 answer[i] <- (which.min(abs(v1[i] - v2)))
 }

这给了我正确的答案，但我只是想要一个更好/更快的方法来做到这一点。我认为有一种方法可以使用 sapply() 来实现此目的，但我已经研究它太久了并且让自己感到困惑。任何建议表示赞赏。

Answer 1

使用sapply，选项是

sapply(v1, function(x) which.min(abs(v2 - x)))
#[1]  4  7  3  9  2 10  4  9  5  1

或与外部

max.col(-abs(outer(v1, v2, `-`)), 'first')
#[1]  4  7  3  9  2 10  4  9  5  1

---

或者使用findInterval

i1 <- order(v1)
findInterval(v2, v1[i1])[i1]