如何在R语言时间对象向量中查找距给定时间最近的时间点？

你不需要手动编写逐元素计算差值、取绝对值最小对应值的逻辑，有成熟的现成方案可以直接调用，根据是否愿意加载第三方包，可选两种方案：

• 基础R内置函数方案：使用自带的findInterval()函数实现，无需安装任何额外包，在时间向量已按升序排列的场景下（常规时间序列数据都满足这个特征），性能远高于全量遍历算差值的写法。
  实现逻辑是先通过findInterval()定位目标时间在有序时间向量中的区间位置，仅需比较区间相邻的两个时间点与目标值的差，取差值更小的即可，同时做好边界判断（目标时间早于所有序列时间/晚于所有序列时间的场景），参考代码如下：

  # 示例数据
  x <- as.POSIXct(c("2018-10-26 00:00:43 NZDT" ,"2018-10-26 00:01:13 NZDT" ,"2018-10-26 00:01:43 NZDT" ,"2018-10-26 00:02:13 NZDT", "2018-10-26 00:02:43 NZDT" ,"2018-10-26 00:03:13 NZDT", "2018-10-26 00:03:43 NZDT", "2018-10-26 00:06:13 NZDT","2018-10-26 00:06:43 NZDT" ,"2018-10-26 00:07:13 NZDT") ,origin= "1970-01-01", tz=Sys.timezone())
  y <- as.POSIXct("2018-10-26 00:01:12 NZDT", origin= "1970-01-01", tz=Sys.timezone())
  
  # 匹配逻辑
  pos <- findInterval(y, x)
  cand_idx <- c(pos, pos + 1)
  cand_idx <- cand_idx[cand_idx >= 1 & cand_idx <= length(x)] # 过滤超出向量范围的索引
  nearest_val <- x[cand_idx[which.min(abs(x[cand_idx] - y))]]
  

  运行上述代码针对你给出的示例，会返回正确结果2018-10-26 00:01:13 NZDT。
• 第三方包简洁方案：如果日常数据处理已经在使用data.table包，可以直接调用它的滚动关联功能，设置roll = "nearest"参数即可直接返回最近匹配值，不需要手动写区间判断、差值比较的逻辑，代码更简洁，且针对百万级以上的大数据量做了专门的性能优化，参考代码如下：

  library(data.table)
  # 构造匹配用的data.table，设置时间列为key
  x_dt <- data.table(t = x, key = "t")
  nearest_val <- x_dt[.(y), t, roll = "nearest"]
  

注意：上述两种方案都要求存储时间的向量x提前按升序排列，如果你的数据框timeObject列是乱序的，需要先对列排序再执行匹配，否则会返回错误结果。

内容的提问来源于stack exchange，提问作者Indu