在日期周围创建时间窗口

Question

我想在给定日期周围创建一个时间窗口。其他问题都围绕一个开始日期和结束日期，我唯一想知道的是一个日期，我想在该日期周围创建一个窗口。当前，我有一个带有多个日期的df和一个ID，我想围绕-2到+2的日期创建时间窗口。结果应以df格式存储，以便我可以将另一个df的值连接到它。实际的数据集要大得多，因此手动输入所有ID的开始日期和结束日期并不是真正的选择。

df1 = 
ID    Date
56   2016-05-22
894  2016-11-09

以类似下面的df结尾

ID      date
56      2016-05-20
56      2016-05-21
56      2016-05-22
56      2016-05-23
56      2016-05-24
894     2016-11-07
894     2016-11-08
894     2016-11-09
894     2016-11-10
894     2016-11-11 

Answer 1

这是一个快速的data.table解决方案

library(data.table)
setDT(df1)[, .(date = seq(as.Date(Date) - 2, as.Date(Date) + 2, 1)), by = ID]
#     ID       date
# 1:  56 2016-05-20
# 2:  56 2016-05-21
# 3:  56 2016-05-22
# 4:  56 2016-05-23
# 5:  56 2016-05-24
# 6: 894 2016-11-07
# 7: 894 2016-11-08
# 8: 894 2016-11-09
# 9: 894 2016-11-10
#10: 894 2016-11-11

---

样本数据

df1 <- read.table(text = " ID    Date
56   2016-05-22
894  2016-11-09", header = T)

Answer 2

我们可以使用complete中的tidyr，这很容易完成序列，即

library(tidyverse)

df %>% 
 mutate(Date = as.Date(Date)) %>% 
 group_by(ID) %>% 
 complete(Date = seq.Date((Date-2), (Date+2), by = 'days'))

给出，

# A tibble: 10 x 2
# Groups:   ID [2]
      ID Date      
   <int> <date>    
 1    56 2016-05-20
 2    56 2016-05-21
 3    56 2016-05-22
 4    56 2016-05-23
 5    56 2016-05-24
 6   894 2016-11-07
 7   894 2016-11-08
 8   894 2016-11-09
 9   894 2016-11-10
10   894 2016-11-11

Answer 3

cos(wt)选项将循环遍历“日期”（Date）列，在base R中获得序列，然后list根据{{1} }的“列表”以创建新的“ data.frame”，同时并置rep元素

lengths

数据

list