Fatal编程技术网
  • r/
  • dplyr：计算每天的帐户余额

dplyr：计算每天的帐户余额

r

dplyr：计算每天的帐户余额,r,dplyr,R,Dplyr,我需要绘制一个帐户余额的预测图，但我正在努力使用dplyr计算每日余额。不起作用的是，这种使用dplyr:：lag作为lag的方法看不到变化的值： my_balance <- 100 df <- data.frame(day = 1:10, cost = c(-20,-30,-10,-30,-40,-20,-30,-35,-10,-12), revenue = c(100,20,0,12,7,100,20,30,15,12)) df %>% mutate(balance =

我需要绘制一个帐户余额的预测图，但我正在努力使用dplyr计算每日余额。不起作用的是，这种使用dplyr:：lag作为lag的方法看不到变化的值：

my_balance <- 100
df <- data.frame(day = 1:10, cost = c(-20,-30,-10,-30,-40,-20,-30,-35,-10,-12), revenue = c(100,20,0,12,7,100,20,30,15,12))
df %>%
  mutate(balance = lag(balance, default = my_balance) + cost + revenue)
预期结果：

   day cost revenue balance
1    1  -20     100     180
2    2  -30      20     170
3    3  -10       0     160
4    4  -30      12     142
5    5  -40       7     109
6    6  -20     100     189
7    7  -30      20     179
8    8  -35      30     174
9    9  -10      15     179
10  10  -12      12     179
我可以使用什么来使用以前计算的金额创建每行余额？

您可以使用添加到
我的余额中的
成本+收入
的
cumsum（）
：


库（dplyr）
df%>%
变动（余额=我的余额+累计金额（成本+收入））
#>日成本收入余额
#> 1    1  -20     100     180
#> 2    2  -30      20     170
#> 3    3  -10       0     160
#> 4    4  -30      12     142
#> 5    5  -40       7     109
#> 6    6  -20     100     189
#> 7    7  -30      20     179
#> 8    8  -35      30     174
#> 9    9  -10      15     179
#> 10  10  -12      12     179



由（v0.3.0）于2020-04-03创建
谢谢！我确实和库姆苏姆在一起玩过，但看起来我太累了，没能把这个做好！

   day cost revenue balance
1    1  -20     100     180
2    2  -30      20     170
3    3  -10       0     160
4    4  -30      12     142
5    5  -40       7     109
6    6  -20     100     189
7    7  -30      20     179
8    8  -35      30     174
9    9  -10      15     179
10  10  -12      12     179