R 如何计算多个日期是否在一个日期范围内

发布于03月22日

我有一个开始和结束日期的列表，我希望找出其中哪些属于我的日期(在这种情况下，这只是最后3个日期/天).如果开始日期和结束日期之间的任何日期在最近3天内，则我希望保留这些日期

 myDates = c(20240320, 20240319, 20240318)

datesToSearch
itemNo             start    end
241             20240311 20240317
242             20240316 20240317
243             20240319 20240321
244             20240318 20240324
300             20240318 20240324

在这里，我只是返回一个DF与匹配的数据，在这种情况下，

correctdatesToSearch
itemNo             start    end
243             20240319 20240321
244             20240318 20240324
300             20240318 20240324

推荐答案

如果将日期转换为实际日期对象，而不是使用整数表示日期，则会容易得多.您使用的格式可以使用lubridate::ymd轻松转换.我们可以在动态中执行此操作，也可以使用lubridate函数interval和%within%来找出哪些行包含了一个或多个您的日期，然后过滤掉结果:

library(lubridate)

df[ymd(myDates) |>
    sapply(\(x) x %within% interval(ymd(df$start), ymd(df$end))) |>
    apply(1, any),] 
#>   itemNo    start      end
#> 3    243 20240319 20240321
#> 4    244 20240318 20240324
#> 5    300 20240318 20240324