按日期计算R值的连续值

Question

我有一个名为“达卡”的数据集，如下所示：

1. 时间降水
2. 01/1998 5
3. 01/02/1998 2
4. 01/03/1998 4
5. 01/04/1998 6
6. 01/05/1998 7
7. 01/06/1998 11

我想用一种方法对降水进行连续的求和，这样它就可以对这三天的降水量进行求和(降水量在准确的date+精确日期之前两天)。

输出可能如下：

1. 时间降水
2. 01/1998 5
3. 01/02/1998 7= 5+2
4. 01/03/1998 11 =5+2+4
5. 01/04/1998 12 =2+4+6
6. 01/05/1998 17 = 4+6+7
7. 01/06/1998 24 = 6+7+11

第一个值将相同，第二个值将是第一个和第二个值之和，其余值将是三个降水值之和。我用过

rollapply(precipitation, 3, sum)

但它并没有给出有价值的日期。

Answer 1

你要找的是累加：

library(data.table)
Dhaka <- data.table(Dhaka)[order(time)]

totalSum <- Dhaka[, cumsum(precipitation)]

拿差额来说：

diffSum <- diff(totalSum, lag = 3)
finalSum <- c(totalSum[1:3], diffSum)

Dhaka[, sums := finalSum]