For 循环或函数有条件地减去两列的值

Question

我在一个数据框中有两列：

x    y
0    1000
0    1000
4    1000
2    1000
10   1000
5    1000

我想要做的是编写一个for循环或函数（哪个更有效），它可以循环遍历y中的每个单元格，用同一行中x的值减去这个值并将结果输入到一个新列中“z”。

诀窍是我想要一个条件，它每次都记住 z 的最后计算值是什么，以便它不断记住循环或函数的最后结果并从中减去 x 而不是每次都减去 y 的相同值时间，因为 y 始终是常数。这会是什么样子：

输出：

x    y       z
0    1000    1000
0    1000    1000
4    1000    996
2    1000    **994** #rather than 998
10   1000    **984**
5    1000    **979**

这样做的目的是测量样本量的分解。

Answer 1

我们取 'x' 列的累积和并从 'y' 中减去以创建 'z' 列

df1$z <- with(df1, y - cumsum(x))
df1$z
#[1] 1000 1000  996  994  984  979