將矩陣的所有元素下移R中的一個索引

Question

我正在嘗試使用R將某個矩陣的所有元素移位1。我有一個相當大的10x10矩陣，需要多次執行此操作。 我不確定如何高效地執行此操作。 例如，我有：

     [,1]     [,2]     [,3]  
[1,]    1        4        7
[2,]    2        5        8
[3,]    3        6        9

目標是使矩陣看起來像：

     [,1]     [,2]     [,3]  
[1,]    9        3        6
[2,]    1        4        7
[3,]    2        5        8

謝謝！

Answer 1

這是一個選擇

mat <- matrix(1:9, nrow = 3)
matrix(c(mat[length(mat)], mat[-length(mat)]),
       nrow = dim(mat)[1])
#     [,1] [,2] [,3]
#[1,]    9    3    6
#[2,]    1    4    7
#[3,]    2    5    8

c(mat[length(mat)], mat[-length(mat)])將采取從最后一個元件mat ，並把它在第一位置處。

我們也可以做

mat[] <- c(mat[length(mat)], mat[-length(mat)])

Answer 2

我認為binhf軟件包的shift函數給出了一個易於理解的語句，該語句可以允許在任一方向上進行任意移位：

library(binhf)
mat <- matrix(1:9, nrow = 3)

matrix(shift(mat,places=1),nrow=dim(mat)[1])

#     [,1] [,2] [,3]
#[1,]    9    3    6
#[2,]    1    4    7
#[3,]    2    5    8

或者簡單地：

matrix(shift(mat,1),nrow=dim(mat)[1])