r - R中矩阵中每一列的相邻列求和

Question

我试图得到一个与 diff() 相反的函数我想为矩阵中的每一列添加矩阵中相邻列的值。我不需要整列或整行的总和。例如:

如果我有:

[ 1  2  4;
  3  5  8 ]

我最终会得到:

[ 3  6;
  8  13 ]

当然对于一两列来说这很简单，因为我可以做 x[,1]+x[,2]，但是这些矩阵非常大。

令我惊讶的是，我似乎找不到一种有效的方法来执行此操作。

Answer 1

m <- matrix(c(1,3,2,5,4,8), nrow=2)
m[,-1] + m[,-ncol(m)]

     [,1] [,2]
[1,]    3    6
[2,]    8   13

或者，只是为了好玩:

n <- ncol(m)
x <- suppressWarnings(matrix(c(1, 1, rep(0, n-1)), 
                             nrow = n, ncol = n-1))
m %*% x

     [,1] [,2]
[1,]    3    6
[2,]    8   13