总结压缩时间序列的值随时间序列

Question

我尝试通过下面的代码来描述我的问题。我有一个数据框架形式的"压缩"时间序列的数据框：它包含具有随着时间的价值的周期的开始和结束日期。我想在数据框架中重复数据：最终要进入数据框架：最终_want，它可以随着时间的推移总结值。也许我不需要并直接以某种方式直接到达最终？谢谢。

library(dplyr)
start_date <- as.Date(c("2004-08-02", "2004-08-03"))
end_date <- as.Date(c("2004-08-04", "2004-08-05"))
value <- c(5, 6)
have <- data.frame(start_date, end_date, value)
have
date <- as.Date(c("2004-08-02", "2004-08-03", "2004-08-04", "2004-08-03", "2004-08-04", "2004-08-05"))
value <- c(5, 5, 5, 6, 6, 6)
want <- data.frame(date, value)
want
ultimately_want <- want %>%
    group_by(date) %>%
    summarise(total = sum(value))
ultimately_want

Answer 1

这是data.table方法，

library(data.table)
setDT(have)[, .(value = value, date = seq(start_date, end_date, by = "day")), 
                                     by = 1:nrow(have)][,.(total = sum(value)), date][]
#         date total
#1: 2004-08-02     5
#2: 2004-08-03    11
#3: 2004-08-04    11
#4: 2004-08-05     6