计算每一行的累积总和

Question

我正在尝试使用以下代码计算每一行的累积总和：

df <- data.frame(count=1:10)

for (loop in (1:nrow(df)))

    {df[loop,"acc_sum"] <- sum(df[1:loop,"count"])}

但是我不喜欢这里的显式循环，如何修改它？

Answer 1

你要 cumsum()df <- within(df, acc_sum <- cumsum(count))

Answer 2

您也可以尝试mySum = t(apply(df, 1, cumsum))。因为我尚未确定结果，所以转置在其中是因为结果出来的是转置。我敢肯定plyr，ddply和多核方法都有很好的解决方案。