将前一行的值累加到后一行，累加到R

问题描述

我正在尝试将前一行的最后一个值添加到后续的值。例如

tmat = rbind(c(1,2,3),c(1,5))
tmat = as.data.frame(tmat)
tmat

  V1 V2 V3
1  1  2  3
2  1  2  3
3  1  2  5

更改为

  V1 V2 V3
1  1  2  3
2  4  5  6
3  7  8  11

我尝试了各种方法，但是我对此视而不见。

new=list()
for(i in 2:nrow(tmat)){
    
new[[i]] =  cumsum(tmat[i,]+tmat[i-1,3])
        }
do.call(rbind,new)

感谢您的帮助。

解决方法

我将使用循环，因为您需要逐步计算行数...

a <- 1:3
aa <- rbind(a,a,a)
aa[3,3] <- 6

for(i in 1:(nrow(aa)-1)) {
  toadd <- aa[i,ncol(aa)]
  aa[i+1,] <- aa[i+1,] + aa[i,ncol(aa)]
}
aa
  [,1] [,2] [,3]
a    1    2    3
a    4    5    6
a    7    8   12

作为矩阵约简：

do.call(rbind,Reduce(function(a0,a1) (a1 + a0[3]),split(as.matrix(tmat),seq_along(tmat)),accumulate = T))
     [,3]
[1,]    1    2    3
[2,]    4    5    6
[3,]    7    8   11

cumsum r r