在 R 中：识别/子集事件日期晚于会计年度日期的观察，并附加条件

Question

我有一个非常大的数据集，这就是为什么我想找到一种更简单的方法来处理这个问题：我想识别或子集那些事件日期晚于财政年度日期的观察结果。 另一个条件是，根据上一句中确定的观察结果，我只想要那些介于 5 月 31 日和财政年度之间的事件日期。 如果不能应用这样的条件，也许可以应用事件日期在 5 月 31 日和 1 月 1 日之间？ 例如，我们有以下

fiscal year date      event date
  2010-04-30          2010-05-03
  2016-03-31          2016-04-28
  2020-01-31          2020-02-10
  2019-08-30          2019-06-03
  2009-07-31          2009-10-10
  2003-03-31          2003-02-18
  2012-06-30          2012-03-10

从上面的数据来看，在应用条件代码时，只会保留前三个观察值。 任何帮助都非常感谢，谢谢：:)

Answer 1

使用tidyverse ：

library(tidyverse)
d %>%
    mutate(MayDate = as.Date(paste0(lubridate::year(fiscal_year_date),"-05-31"))) %>%
    filter(event_date > fiscal_year_date & event_date <= MayDate)

#   fiscal_year_date event_date    MayDate
# 1       2010-04-30 2010-05-03 2010-05-31
# 2       2016-03-31 2016-04-28 2016-05-31
# 3       2020-01-31 2020-02-10 2020-05-31

数据

d <- structure(list(fiscal_year_date = structure(c(14729, 16891, 18292, 
18138, 14456, 12142, 15521), class = "Date"), event_date = structure(c(14732, 
16919, 18302, 18050, 14527, 12101, 15409), class = "Date")), 
class = "data.frame", row.names = c(NA, -7L))