是否有 R 函数或更好的方法来累加行和列?

Is there a R function or better way to sum rows and columns cumulatively?

让我们假设一个数据框

df1 <- data.frame(A = c(1,2,3), B = c(4,5,6), C = c(7,8,9), D = c(10,11,12))

我想累加行和列,比如

mysum <- c(sum(df1[1,1:4]), 
       sum(df1[1:2,1:4]),
       sum(df1[1:3,1:4])
          )

有改进代码的想法吗?。 dplyr 解决方案? R基地? 我有成千上万的行和列。 提前致谢

怎么样:

mysum <- cumsum(rowSums(df1))

mysum
[1] 22 48 78