从新结果中减去

Question

我一直在寻找解决此问题的方法，但似乎找不到。

例如： 我有一个值：x = 22000 我有一列的值为Dataframe$netto_weights 例如：1000, 2000, 5000,1000..

我正在寻找一种方法来减去这些netto_weights 并保存每次减去X 的结果。

我尝试将sapply 与lead 或lag 函数结合使用，但我不断得到不同的结果。

输出将类似于： x = 22000

1.  21000 (22000-1000)
2.  19000 (21000-2000)
3.  14000 (19000-5000)
4.  13000 (14000-1000)

Answer 1

你可以这样做：

x <- 22000
vec <- c(1000, 2000, 5000, 1000)

x - cumsum(vec)

[1] 21000 19000 14000 13000