R lubridate 查找连续时间范围和一组间隔之间的非重叠时间段

Question

我有以下时间范围:

A <- c('2016-01-01', '2019-01-05')
B <- c('2017-05-05','2019-06-05')

X_Period <- interval("2015-01-01", "2019-12-31")
Y_Periods <- interval(A, B)

我想找到 X_Period 和 Y_Periods 之间的非重叠时期，以便结果是:

[1]'2015-01-01'--'2015-12-31'
[2]'2017-05-06'--'2019-01-04'
[3]'2019-06-06'--'2019-31-12'

我正在尝试使用 setdiff 但它不起作用

setdiff(X_Period, Y_Periods)

Answer 1

这是一个选项:

library(lubridate)
seq_X <- as.Date(seq(int_start(X_Period), int_end(X_Period), by = "1 day"))
seq_Y <- as.Date(do.call("c", sapply(Y_Periods, function(x)
    seq(int_start(x), int_end(x), by = "1 day"))))

unique_dates_X <- seq_X[!seq_X %in% seq_Y]

lst <- aggregate(
    unique_dates_X,
    by = list(cumsum(c(0, diff.Date(unique_dates_X) != 1))),
    FUN = function(x) c(min(x), max(x)),
    simplify = F)$x    

lapply(lst, function(x) interval(x[1], x[2]))
#[[1]]
#[1] 2015-01-01 UTC--2015-12-31 UTC
#
#[[2]]
#[1] 2017-05-06 UTC--2019-01-04 UTC
#
#[[3]]
#[1] 2019-06-06 UTC--2019-12-31 UTC

策略是转换 interval s 到按天序列(一个用于 X_Period，一个用于 Y_Period)；然后我们找到只是 X_Period 一部分的所有日子(而不是 Y_Periods 的一部分)。然后我们 aggregate确定连续日期的所有子序列中的第一个和最后一个日期。由此产生的 lst是 list与这些开始/结束日期。转换为 interval ，我们只需循环遍历 list并将开始/结束日期转换为 interval .