如何解决如何在R中重复日期的情况下向日期添加一天
使用以下示例 data.table,我想创建一个新的唯一 DateRR 变量,当它与以下变量重复时,向 DateR 变量添加一段时间(最好是天):NUID、Form_Name 和 Eval_Question :
structure(list(Form_Name = c("Form1","Form1","Form1"),NUID = c("ID1","ID1","ID1"),Eval_Question = c("Q1","Q1","Q2","Q2"),DateR = c("1/4/2021","1/4/2021","1/5/2021","1/5/2021"
)),row.names = c(NA,-8L),class = c("data.table","data.frame"
))
我首先将 DateR 转换为 POSIXct:
library(lubridate)
DF1[,DateR := as.POSIXct(strptime(DateR,"%m/%d/%Y"))]
然后我创建了一个 Index 变量并减去 1,因此它会在第一次出现 DateR 时从 0 开始:
DF1[,Index := seq_len(.N),by = .(NUID,DateR,Form_Name,Eval_Question)][,Index := Index-1]
然后我创建了一个新的 DateRR 变量,它添加了由 Index 指定的天数(可以是 >1):
QA_All[,DateRR := DateR + duration(Index,'days')]
并具有以下内容:
structure(list(Form_Name = c("Form1","1/5/2021"
),Index = c(0L,1L,0L,1L),DateRR = c("1/4/2021","1/6/2021","1/6/2021")),"data.frame"))
起初,这似乎工作得很好。但是,每当 DateR 变量通过对变量(NUID、DateR、Form_Name、Eval_Question)进行分组来指示连续天数时,我都会在 DateRR 中留下一个与 DateR 中的两个日期重叠的日期。这是第二次出现 Q2(在 DateR 1/4/2021 上)和第一次出现 Q1(在 DateR 1/5/2021 上)。我需要在 DateRR 中为我的分组变量设置一个唯一的日期。有没有办法说明 DateR 中连续日期的条件?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。