相关疑难解决方法(0)

我试图使用以下代码计算每行的累积总和:

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

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

但我不喜欢这里的显式循环,我该如何修改呢？