日期重叠的10天间隔

Question

我有一个年度数据集，我想将其分成10天的间隔。例如，我想将2010-12-26子集设置为2011-01-04，使用这些日期的x和y值创建一个home range，然后获得接下来的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])
)