R：逐行汇总列的值并创建新列

Question

我有以下专栏

1
0
0
1
1
1

我想要一个新的列，其中包含逐行值的总和，如下所示

1 1
0 1
0 1
1 2
1 3
1 4

感谢

Answer 1

使用cumsum

> x <- c(1,0,0,1,1,1)
> x
[1] 1 0 0 1 1 1
> cumsum(x)
[1] 1 1 1 2 3 4

完全放在

> cbind(x, xsum=cumsum(x))
     x xsum
[1,] 1    1
[2,] 0    1
[3,] 0    1
[4,] 1    2
[5,] 1    3
[6,] 1    4