在R中创建连续的期间

这是一个更省钱的函数，它使用了第一个函数所使用的内存的一小部分(下面，留作比较).

fun <- function(starts, ends) {
  S <- starts; E <- ends
  for (i in rev(seq_along(S))) {
    ind <- ind <- which(S[-i] <= S[i] & S[i] <= E[-i] + 1)
    if (length(ind)) {
      ind <- max(ind) + (max(ind) > i)
      S[ind] <- min(S[c(ind, i)])
      E[ind] <- max(E[c(ind, i)])
      S <- S[-i]
      E <- E[-i]
    }
  }
  data.frame(start=S, end=E)
}

reframe(df, .by=person, fun(start, end))
# # A tibble: 3 × 3
#   person start      end       
#   <chr>  <date>     <date>    
# 1 1      2000-01-01 2002-12-31
# 2 2      2000-01-01 2000-11-30
# 3 2      2001-01-01 2001-12-31

(Old answer, not needed.)

使用一个helper函数(这是公认的蛮力):

fun <- function(starts, ends) {
  x <- unique(sort(do.call(c, Map(seq, starts, ends, list(by="day")))))
  x <- split(x, cumsum(c(TRUE, diff(x) > 1))) |>
    lapply(function(z) setNames(data.frame(as.list(range(z))),
                                c("start", "end")))
  do.call(rbind, x)
}

然后我们就可以做

dplyr::reframe(df, .by=person, fun(start, end))
# # A tibble: 3 × 3
#   person start      end       
#   <chr>  <date>     <date>    
# 1 1      2000-01-01 2002-12-31
# 2 2      2000-01-01 2000-11-30
# 3 2      2001-01-01 2001-12-31