R：按行總結一列列的值，並創建新的列

Question

我有以下列

1 
0 
0 
1 
1 
1 

，我想與值行的和新的一列由行WO像這樣

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