r - 按列使用 cumsum

Question

我有一个矩阵，例如:

A= [ 1 2 3 4
     3 5 6 6
     4 1 2 3 ]

我想以另一个矩阵(或数据框)的形式获取列的累积和。例如，这个矩阵会给出:

B= [1 2 3 4
    4 7 9 10
    8 8 8 13]

Answer 1

如果A是一个矩阵，使用apply:

A <- structure(c(1, 3, 4, 2, 5, 1, 3, 6, 2, 4, 6, 3), .Dim = 3:4)
B <- apply(A, 2, cumsum)
B
#      [,1] [,2] [,3] [,4]
# [1,]    1    2    3    4
# [2,]    4    7    9   10
# [3,]    8    8   11   13

如果A是一个data.frame，使用lapply:

B <- as.data.frame(A)
B[] <- lapply(B, cumsum)
B
#   V1 V2 V3 V4
# 1  1  2  3  4
# 2  4  7  9 10
# 3  8  8 11 13