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

发布于 2025-01-15 03:23:55 字数 553 浏览 3 评论 0原文

我的问题是，我需要将包含日期的多个列与参考列（此处为 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)

原文

My problem is that I need to compare multiple columns containing Dates, to a reference column (ref_date here) and store the number of observations which are before/smaller than that reference date for each row, in a new column (let's call it count_date).

I hereby provide a little sample data:

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)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

呆 2025-01-22 03:23:55

我们可以跨“日期”列，使用ref_date创建逻辑向量（<）并获取rowSums code> 在 TRUE 值上返回每行的“计数”

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

We can loop across the 'date' columns, create a logical vector (<) with ref_date and get the rowSums on the TRUE value to return the 'count' per row

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

-output

  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

回复收藏 0 原文

享受孤独 2025-01-22 03:23:55

基础 R 中的一个可能的解决方案：

df_test$count_date <- apply(df_test, 1, \(x) sum(x[2:4] < x[5]))

df_test

#>   ID      date1      date2      date3   ref_date count_date
#> 1  1 2004-10-10 2011-10-02 2018-11-14 2011-11-02          2
#> 2  2 2021-02-13 2021-06-10 2009-12-22 2014-10-24          1
#> 3  3 2001-12-21 2007-06-16 2001-05-24 2015-09-07          3
#> 4  4 2021-05-30 2016-01-07 2016-06-06 2005-12-17          0
#> 5  5 2010-12-06 2021-06-24 2008-03-29 2020-11-01          2

A possible solution in base R:

df_test$count_date <- apply(df_test, 1, \(x) sum(x[2:4] < x[5]))

df_test

#>   ID      date1      date2      date3   ref_date count_date
#> 1  1 2004-10-10 2011-10-02 2018-11-14 2011-11-02          2
#> 2  2 2021-02-13 2021-06-10 2009-12-22 2014-10-24          1
#> 3  3 2001-12-21 2007-06-16 2001-05-24 2015-09-07          3
#> 4  4 2021-05-30 2016-01-07 2016-06-06 2005-12-17          0
#> 5  5 2010-12-06 2021-06-24 2008-03-29 2020-11-01          2

回复收藏 0 原文

~没有更多了~