在特定值之前求向量中最近的值

Question

在R - Fastest way to find nearest value in vector的基础上，我感兴趣的是在特定值之前在向量中得到最近的值。

DescTools包Closest不按方向区分。

例如：

x=c(1,7:10)
min(DescTools::Closest(x, 6, which = F, na.rm = FALSE))        

会返回7，而我想要1。有没有人？

Answer 1

您可以尝试编写一个简单的函数来完成这个任务。

closest_preceding <- function(vec, value) max(vec[vec < value])

closest_preceding(x, 6)
#> [1] 1