如何选择日期在R中另一个日期列范围内的行答案

【问题标题】：How to select rows where a date is within range of another date column in R如何选择日期在R中另一个日期列范围内的行
【发布时间】：2020-07-11 19:31:23
【问题描述】：

我在下面有一个名为 df 的示例数据框

subj_id    admission_id    chart_date    admission_date     procedure
9          145834          2010-10-21    2010-10-23         surgery
14         122917          2010-05-30    2010-06-10         surgery
22         205461          2010-06-01    2010-06-15         surgery
31         237766          2010-03-05    2010-03-08         surgery
49         241908          2010-04-21    2010-04-21         CT-scan 
56         317751          2010-09-10    2010-09-25         surgery
67         382211          2010-08-05    2010-08-06         surgery

我只想选择 chart_date 在 admission_date 后超过 2 天但在 admission_date 后不到 14 天的行，结果应该如下所示

subj_id    admission_id    chart_date    admission_date     procedure
9          145834          2010-10-21    2010-10-23         surgery
14         122917          2010-05-30    2010-06-10         surgery
22         205461          2010-06-01    2010-06-15         surgery
31         237766          2010-03-05    2010-03-08         surgery

我已经尝试了下面的代码，但它返回给我的是空行。想知道我做错了什么，感谢任何形式的帮助。谢谢你。

start <-df$admission_date + 2
end <-df$admission_date + 14

dfinclusion <- df[df$chart_date > start  & df$chart_date < end,]

【问题讨论】：

它应该可以工作，也许你的日期不是 adte 格式的？尝试使用来自 lubridate 的ymd()

标签： r dataframe date subset

【解决方案1】：

您可以减去 admission_date 和 chart_date 之间的值，然后选择 2 到 14 天之间的行。

library(dplyr)

df %>%
  mutate_at(vars(ends_with('date')), as.Date) %>%
  filter(between(admission_date - chart_date, 2, 14))

#  subj_id admission_id chart_date admission_date procedure
#1       9       145834 2010-10-21     2010-10-23   surgery
#2      14       122917 2010-05-30     2010-06-10   surgery
#3      22       205461 2010-06-01     2010-06-15   surgery
#4      31       237766 2010-03-05     2010-03-08   surgery

同样，在基数 R 中：

df[3:4] <- lapply(df[3:4], as.Date)

subset(transform(df, diff_Date = admission_date - chart_date), 
                     diff_Date >=2 & diff_Date <= 14)

数据

df <- structure(list(subj_id = c(9L, 14L, 22L, 31L, 49L, 56L, 67L), 
admission_id = c(145834L, 122917L, 205461L, 237766L, 241908L, 
317751L, 382211L), chart_date = structure(c(14903, 14759, 
14761, 14673, 14720, 14862, 14826), class = "Date"), 
admission_date = structure(c(14905,14770, 14775, 14676, 14720, 14877, 14827), 
class = "Date"), procedure = structure(c(2L, 2L, 2L, 2L, 1L, 2L, 2L), 
.Label = c("CT-scan", "surgery"), class = "factor")), 
row.names = c(NA, -7L), class = "data.frame")

【讨论】：