我正在嘗試使用以下代碼計算每一行的累積總和：df <- data.frame(count=1:10)for (loop in (1:nrow(df)))    {df[loop,"acc_sum"] <- sum(df[1:loop,"count"])}但是我不喜歡這里的顯式循環，如何修改它？