R 如何将包含 Date 对象的多个列与参考 Date 进行比较并报告低于该阈值的列总数

发布于03月19日

我的问题是，我需要将包含日期的多个列与一个参考列(此处为ref_date)进行比较，并将每行在该参考日期之前/小于该参考日期的观察数存储在一个新列中(我们称之为count_date).

我在此提供一个小样本数据:

ID <- c("1", "2", "3", "4", "5")
date1 <- sample(seq(as.Date('2000/01/01'), Sys.Date(), by="day"), 5)
date2 <- sample(seq(as.Date('2000/01/01'), Sys.Date(), by="day"), 5)
date3 <- sample(seq(as.Date('2000/01/01'), Sys.Date(), by="day"), 5)
ref_date <- sample(seq(as.Date('2000/01/01'), Sys.Date(), by="day"), 5)
count_date <-0
df_test <- data.frame(ID,date1,date2,date3,ref_date,count_date)

推荐答案

我们可以循环across个"date"列，创建一个逻辑向量(<)和ref_date，并获得真值的rowSums，以返回每行的"count"

library(dplyr)
df_test %>% 
    mutate(count_date = rowSums(across(starts_with('date'), ~ .x < ref_date)))

-输出

  ID      date1      date2      date3   ref_date count_date
1  1 2011-02-12 2006-03-11 2013-04-20 2014-07-22          3
2  2 2011-03-27 2008-02-01 2017-07-25 2015-05-29          2
3  3 2011-03-08 2009-11-14 2009-05-26 2012-09-27          3
4  4 2016-11-29 2014-12-20 2007-10-03 2014-10-03          1
5  5 2007-11-27 2011-08-15 2011-07-21 2005-12-12          0