r-将时间间隔矢量分配给不重叠的组

Question

我有由R包lubridate:创建的Intervals的矢量

library(lubridate)
ints <- new("Interval", .Data = c(61379.0158998966, 61379.0158998966, 
174450.142500162, 2105574.12809992, 
1986079.47369981), 
start = structure(c(1477895188.5302, 1477895188.5302, 
1478301991.7993, 1478488100.319, 
1478607594.9734), 
tzone = "America/New_York", class = c("POSIXct", "POSIXt")), 
tzone = "America/New_York")
ints
#> [1] 2016-10-31 02:26:28 EDT--2016-10-31 19:29:27 EDT
#> [2] 2016-10-31 02:26:28 EDT--2016-10-31 19:29:27 EDT
#> [3] 2016-11-04 19:26:31 EDT--2016-11-06 18:54:01 EST
#> [4] 2016-11-06 22:08:20 EST--2016-12-01 07:01:14 EST
#> [5] 2016-11-08 07:19:54 EST--2016-12-01 07:01:14 EST

我想把这个Intevals的向量传递给一个函数，让它返回一个相同长度的群成员向量，其中群成员是由重叠的时间间隔决定的。在本例中，返回的矢量为：

c(1, 1, 2, 3, 3)

lubridate能够评估区间对与int_overlaps的重叠，但我希望有人已经将其推广到识别非重叠区间组。

Answer 1

我们可以使用lubridate中的int_overlaps。其想法是检查当前和先前(lag(上的间隔之间是否有任何重叠，以返回逻辑向量，我们使用cumsum将其转换为整数

library(lubridate)
library(dplyr)
cumsum(!int_overlaps(ints, lag(ints, default = first(ints)))) + 1
#[1] 1 1 2 3 3