R/数据清洗：在一个数据集中分离多个时间序列

Question

我有一个包含多个时间序列块的数据框。块没有标识符，但块的第一个条目用布尔变量表示。如何使用此变量创建标识符？

示例数据：

set.seed(102)
chunks <- data.frame(entry = c(1:50),
                 date = seq(ISOdate(2015,1,1), by = "day", length.out = 50),
                 newchunk = c(1, rbinom(49, 1, .2)),
                 measurement = rnorm(50, 100, 10))

结果应该是一个新变量“seqID”，它将块分组。我想知道 tidyr 包是否可以处理这种情况。

Answer 1

你可以试试cumsum

chunks$seqID <- cumsum(chunks$newchunk)