r-日期重叠的10天间隔

Question

我有一个年度数据集，我想将其分解为10天的间隔。例如，我想将2010-12-26子集设置为2011-01-04，使用这些日期的x和y值创建一个起始范围，然后获得接下来的9天加上子集数据之间的重叠日期，在这种情况下，它将是2011-01-04(2011-01-04 to 2011-01-13(。有什么好方法可以做到这一点吗？

library(lubridate)
date <- rep_len(seq(dmy("26-12-2010"), dmy("20-01-2011"), by = "days"), 500)
df <- data.frame(date = date,
x = runif(length(date), min = 60000, max = 80000),
y = runif(length(date), min = 800000, max = 900000))

我用10个观察结果将它们分开，但我不确定如何才能让10天而不是10天的观察结果更具体。

interval_10 <- lapply(
seq(0, nrow(df), by = 10),
function(k) df[max(k+1, 1):min(k + 10, nrow(df)), ]
)

谢谢

Answer 1

lapply通过唯一的日期矢量将完成以下工作：

t <- unique(date)[seq(from = 1, to = length(unique(date)), by = 9)]
interval_10 <- lapply(
1:(length(t)-1),
function(k) df %>% filter(date <= t[k+1], date >= t[k])
)