有没有一种方法可以确定特定日期介于哪两个日期之间？

Question

我试图找出向量中的两个日期值之间的特定日期。我不太确定该怎么解释，这个例子应该会有所帮助。

## Vector of dates
temp <- seq(as.Date("2000/01/01"),as.Date("2003/01/01"),"years")
temp

[1] "2000/01/01" "2001/01/01" "2002/01/01" "2003/01/01"

date<- sample(seq(as.Date("2000/01/01"),as.Date("2003/01/01"),"days"),1)
date

这应该是一个随机日期，但是仅举一个例子来说，它是2002/09/14。我该如何通过日期查看温度并找到其之间的值，因此对于此示例，答案将是c("2002/01/01","2003/01/01")。

我基本上是在寻找dplyr中between函数的翻转。

Answer 1

您可以使用findInterval

set.seed(123)
date<-sample(seq(as.Date("2000/01/01"),as.Date("2003/01/01"),"days"),1)
date
#[1] "2001-02-18"

ind <- findInterval(date, temp)
c(temp[ind], temp[ind + 1])
#[1] "2001-01-01" "2002-01-01"