代码之家 › 专栏 › 技术社区 › EDennnis

带非序数中断的反向求和

cumsum seq r

0

EDennnis · 技术社区 · 7 年前

我已经提供了一个我想要实现的示例矩阵。第一列是数据,第二列是我想要的。您将看到第2列已更新,以反映剩余的项目数。当存在0时,必须执行上一个编号。

update <- matrix(c(rep(0,4),rep(1,2),2,rep(0,2),1,3, 
  rep(10,4), 9,8,6, rep(6,2), 5, 2),ncol=2)

编辑:第2列以给定值开始,该值可以表示任何起始值(即月初的库存)。第1列将表示所做的“购买”;因此,第2列应反映剩余可用项目的总数。

0 回复 | 直到 7 年前

1

0

Soren 7 年前

如下所述,将报告采购和库存余额:

starting_inventory <- 100
df <- data.frame(purchases=c(rep(0,4),rep(1,2),2,rep(0,2),1,3))
df$cum_purchases <- cumsum(df$purchases)
df$remaining_inventory <- starting_inventory - df$cum_purchases

结果:

   purchases cum_purchases remaining_inventory
1          0             0                 100
2          0             0                 100
3          0             0                 100
4          0             0                 100
5          1             1                  99
6          1             2                  98
7          2             4                  96
8          0             4                  96
9          0             4                  96
10         1             5                  95
11         3             8                  92