r - cumsum() 截至并包括 dplyr 中的当前日期

Question

我想计算当前日期之前(包括当前日期)的所有日期的值的累积总和。问题是我在同一日期有多个条目，因此如果我使用 cumsum，我会得到同一日期发生的值的不同值:

library(dplyr)
tribble(~date, ~value,
        "2017-01-01", 1,
        "2017-01-02", 2,
        "2017-01-02", 3,
        "2017-01-03", 4,
        "2017-01-03", 5,
        "2017-01-04", 6,
        "2017-01-09", 9) %>% 
  arrange(date) %>% 
  mutate(to_date=cumsum(value))
>
# A tibble: 7 x 3
        date value  to_date
       <chr> <dbl>    <dbl>
1 2017-01-01     1        1
2 2017-01-02     2        3
3 2017-01-02     3        6
4 2017-01-03     4       10
5 2017-01-03     5       15
6 2017-01-04     6       21
7 2017-01-09     9       30

是否有一种优雅的方式来获得以下输出:

# A tibble: 7 x 3
        date value  to_date
       <chr> <dbl>    <dbl>
1 2017-01-01     1        1
2 2017-01-02     2        6
3 2017-01-02     3        6
4 2017-01-03     4       15
5 2017-01-03     5       15
6 2017-01-04     6       21
7 2017-01-09     9       30

由于各种原因(除其他外，我的表中有更多字段)，我无法在运行累积总计之前通过数据进行汇总。我(可能)需要一个不断增长的窗口函数来计算时间间隔的总数。

Answer 1

我们可以按'日期'分组，然后获取最后'to_date'

df1 %>%
    group_by(date) %>%
    mutate(to_date = last(to_date))