根据日期在R中创建运行计数

Question

我正在尝试根据日期在R中创建运行计数，并变得有些困惑。

我所拥有的是：

DF1

ID	日期	Inved	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
XYZ1	2021-04-01	0	0 0
xyz1	2021-04-02	9 9	9
xyz1	2021-04-04-03	0	0
xyz1	2021-04-04-04-04	15	0
xyz1	2021-04-05	0 0 0 0 0 0 0 0 0 0.0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	0 0 00
士板XYZ1	2021-04-06	7	4
XYZ1	2021-04-07	0	0 0
XYZ1	2021-04-08	0	5
XYZ1	2021-04-09	12	0
XYZ1	2021-04-11 2021-04-11	18	0
XYZ1	2021-04-12	0	XY4-12 0 0
XYZ1	2021 2021 2021 2021 2021 2021 -04-13	12	10
XYZ1	2021-04-14	18	0
xyz1	2021-04-15	0	5

我想要INV的运行计数。如果在第1天有9个报告Invoicing1，而同一第9天则发票1。然后在第2天，开票1应该= 0。用于获取以下计算的方程式上的任何帮助将不胜感激。

我想要的是： DF2

ID	日期	INV	INVED
XYZ1	2021-04-01	0	0
XYZ1	2021-04-02	9	9 9
XYZ1	2021-04-03	0	9
XYZ1	2021-04-04-04-04-04-04-04-05	15	9
XYZ1	2021-04-04-04-04	15	9
XYZ1	2021-04--04-04-04-04-04-04-04-04-04-04-04-04-04- 06	18	13
xyz1	2021-04-07	18	13
xyz1	2021-04-08	13	18
xyz1	2021-04-09	25	18
xyz1	2021-04-11	43	18
xyz1	2021-2021-04-04-12	​	​
​	​	​	28
XYZ1	2021-04-14	63	28
XYZ1	2021-04-15	58	33

这是数据的可再现样本：

df1 <- data.frame(ID = c('XYZ1','XYZ1', 'XYZ1', 'XYZ1', 'XYZ1', 'XYZ1', 'XYZ1', 'XYZ1', 'XYZ1','XYZ1', 'XYZ1', 'XYZ1', 'XYZ1','XYZ1'),
                  Date = c(2021-04-01, 2021-04-02, 2021-04-03, 2021-04-04, 2021-04-05, 2021-04-06, 2021-04-07, 2021-04-08, 2021-04-09, 2021-04-10, 2021-04-11, 2021-04-12, 2021-04-13, 2021-04-14),
                  Inv = c(0,9,0,15,0,7,0,0,12,18,0,12,18,0),
                  Inved = c(0,9,0,0,0,4,0,5,0,0,0,10,0,5))

我想创建从DF1到DF2所需的计算。

我本质上想弄清楚如何编写从DF1到DF2的方程式。

我认为正在发生的事情是：

1：INV被Inved减去。 df1 $ row3 = df1 $ row3inv = df1 $ row3inved。

2：在第3行中，INV现在为0，因为发票已转移到发票中。

3：如果INV继续随着INV的发展而不断变化，则需要添加INV。

4：随着Inv的增长，如果Inved增加了，则必须减去

Answer 1

这是一个尝试，但第二行中只有数字更改

df1$Inv <- cumsum(df1$Inv - df1$Inved)

df1$Inved <- cumsum(df1$Inved)