使用 R 测试日期是否出现在多个日期范围内

Question

我有一个具有多个日期范围的数据框（准确地说是 45）：

Range  Start       End
1      2014-01-01  2014-02-30
2      2015-01-10  2015-03-30
3      2016-04-20  2016-10-12
...    ...         ...

他们永远不会重叠

我还有一个包含各种事件日期（200K+）的数据框：

Event  Date
1      2014-01-02
2      2014-03-20
3      2015-04-01
4      2016-08-18
...    ...

我想测试这些日期是否在以下任何范围内：

Event  Date        InRange
1      2014-01-02  TRUE
2      2014-03-20  FALSE
3      2015-04-01  FALSE
4      2016-08-18  TRUE
...

执行此测试的最佳方法是什么？我查看了 lubridate 的between和interval函数以及各种 Stackoverflow 问题，但找不到好的解决方案。

Answer 1

您可以从第一个数据框创建日期范围的向量，然后使用%in%运算符检查事件的每个日期是否在此日期范围内。假设您的第一个数据框是dateRange，第二个events，将上述逻辑放在一行中将是：

events$InRange <- events$Date %in% unlist(Map(`:`, dateRange$Start, dateRange$End))

events
  Event       Date InRange
1     1 2014-01-02    TRUE
2     2 2014-03-20   FALSE
3     3 2015-04-01   FALSE
4     4 2016-08-18    TRUE

我们在哪里使用Map来创建日期范围向量。Map结合:运算符创建从Start到 的日期范围列表End。在接近list(2014-01-01 : 2014-02-30, 2015-01-10 : 2015-03-30, 2016-04-20 : 2016-10-12 ...)（象征性地，无效）的地方，使用unlist，我们将其展平为日期范围的向量，然后可以%in%方便地使用。