Décalage de la matrice par nrow ou ncol dans R

Question

J'ai besoin de déplacer une image (que j'ai stockée comme une matrice) haut/bas ou gauche/droite et je voudrais que cela reste dans les limites des dimensions de la matrice d'origine.

Pour montrer un exemple, si j'avais une matrice 3x3

x <- matrix(seq(1,9),3,3) 

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

et je voulais changer ce bas que je recevrais

  [,1] [,2] [,3] 
    [1,] NA NA NA 
    [1,] 1 4 7 
    [2,] 2 5 8 

Quelqu'un pourrait me aider? Je voudrais également la possibilité d'effectuer cela pour les traductions dans la gauche/droite aussi

Answer 1

Créé une fonction pour faire face à «gauche», «droite», «haut», «bas».

f1 <- function(mat, dir, n=1){ 
if(dir %in% c('up', 'down')){ 
    stopifnot(nrow(mat)> n) 
    i1 <- rep(NA, ncol(mat)) 
if(dir=='down'){ 
    r1 <- `dimnames<-`(do.call(rbind, c(replicate(n, i1, simplify=FALSE), 
           list(head(mat, -n)))), NULL) 
    } 

else { 

    r1 <- `dimnames<-`(do.call(rbind, c(list(tail(mat, -n)), 
         replicate(n, i1, simplify=FALSE))), NULL) 

    } 
    } 
else { 
    stopifnot(ncol(mat) > n) 
    i2 <- rep(NA, nrow(mat)) 
    if(dir=='right'){ 
    r1 <- `dimnames<-`(do.call(cbind, c(replicate(n, i2, simplify=FALSE), 
          list(mat[, head(1:ncol(mat),-n)]))), NULL) 
    } 
    else { 
    r1 <- `dimnames<-`(do.call(cbind, c(list(mat[,tail(1:ncol(mat), -n)]), 
         replicate(n, i2, simplify=FALSE))), NULL) 
    } 

} 
    r1 
} 

Vérification avec différents 'n' et les directions.

f1(x, 'up', 2) 
#  [,1] [,2] [,3] 
#[1,] 3 6 9 
#[2,] NA NA NA 
#[3,] NA NA NA 

f1(x, 'down',2) 
#  [,1] [,2] [,3] 
#[1,] NA NA NA 
#[2,] NA NA NA 
#[3,] 1 4 7 
f1(x, 'left',1) 
#  [,1] [,2] [,3] 
#[1,] 4 7 NA 
#[2,] 5 8 NA 
#[3,] 6 9 NA 
f1(x, 'right',1) 
#  [,1] [,2] [,3] 
#[1,] NA 1 4 
#[2,] NA 2 5 
#[3,] NA 3 6 

f1(x, 'right',3) 
#Error: ncol(mat) > n is not TRUE 

f1(x, 'up',3) 
#Error: nrow(mat) > n is not TRUE