假设我有两个 vectors
a <- c(5,10,12)
b <- c(4,11,15)我想比较 a 和 b 并获得最接近每个元素的较小的 value 。最接近 5 的较小的 value 是 4，对于 10 是 4，对于 12 是 11。同样，但找到最接近的较大 value。 5 是 11，10 是 11，12 是 15。
最接近的较小 values 的所需 vector：
4 4 11最接近的较大 values 的所需 vector：
11 11 15我找到了另一个使用最接近包 DescTools 的函数的示例，但结果不同
> unlist(lapply(a, function(i) min(Closest(x = b, a = i))))
[1] 4 11 11
> unlist(lapply(a, function(i) max(Closest(x = b, a = i))))
[1] 4 11 11你知道我怎样才能实现我的目标吗？
回答1
这应该这样做：
> sapply(a,function(x) b[tail(which(b<x),1)])
[1] 4 4 11
> sapply(a,function(x) b[head(which(b>x),1)])
[1] 11 11 15回答2
假设两者都是有序且唯一的：
idx <- findInterval(a, b)
a[idx]
[1] 5 5 10
b[idx+1]
[1] 11 11 15