web-dev-qa-db-ja.com

Rで行列を回転させる

Rには次のような行列があります。

|1|2|3|
|1|2|3|
|1|2|3|

これらの結果を得るために、マトリックス全体を時計回りに90度回転する簡単な方法はありますか？

|1|1|1|
|2|2|2|
|3|3|3|

そして再び90度回転：

|3|2|1|
|3|2|1|
|3|2|1|

？

rmatrixrotation
48
Johannes

tはエントリを回転させず、対角線に沿って反転します：

x <- matrix(1:9, 3)
x
##      [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9

t(x)
##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
## [3,]    7    8    9

R行列の時計回りの90度回転：

また、転置の前に列を逆にする必要があります。

rotate <- function(x) t(apply(x, 2, rev))
rotate(x)
##      [,1] [,2] [,3]
## [1,]    3    2    1
## [2,]    6    5    4
## [3,]    9    8    7

rotate(rotate(x))
##      [,1] [,2] [,3]
## [1,]    9    6    3
## [2,]    8    5    2
## [3,]    7    4    1

rotate(rotate(rotate(x)))
##      [,1] [,2] [,3]
## [1,]    7    8    9
## [2,]    4    5    6
## [3,]    1    2    3

rotate(rotate(rotate(rotate(x))))
##      [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9

Rマトリックスの反時計回り90度回転：

逆の前に転置を行うことは、反時計回りに回転することと同じです。

foo = matrix(1:9, 3)
foo
## [,1] [,2] [,3]
## [1,]    1    4    7
## [2,]    2    5    8
## [3,]    3    6    9

foo <- apply(t(foo),2,rev)
foo

## [,1] [,2] [,3]
## [1,]    7    8    9
## [2,]    4    5    6
## [3,]    1    2    3
88
Matthew Lundberg
m <- matrix(rep(1:3,each=3),3)

     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    1    2    3
[3,]    1    2    3

t(m[nrow(m):1,])

     [,1] [,2] [,3]
[1,]    1    1    1
[2,]    2    2    2
[3,]    3    3    3

m[nrow(m):1,ncol(m):1]

     [,1] [,2] [,3]
[1,]    3    2    1
[2,]    3    2    1
[3,]    3    2    1

t(m)[ncol(m):1,]

     [,1] [,2] [,3]
[1,]    3    3    3
[2,]    2    2    2
[3,]    1    1    1
27
Roland

180°でマトリックスを回転させる簡単な方法は次のとおりです。

m <- matrix(1:8,ncol=4)
#      [,1] [,2] [,3] [,4]
# [1,]    1    3    5    7
# [2,]    2    4    6    8


rot <- function(x) "[<-"(x, , rev(x))

rot(m)
#      [,1] [,2] [,3] [,4]
# [1,]    8    6    4    2
# [2,]    7    5    3    1

rot(rot(m))
#      [,1] [,2] [,3] [,4]
# [1,]    1    3    5    7
# [2,]    2    4    6    8
7
Sven Hohenstein

マトリックスを90度および-90度回転させるRメソッド

#first reverse, then transpose, it's the same as rotate 90 degrees
rotate_clockwise         <- function(x) { t(     apply(x, 2, rev))}
#first transpose, then reverse, it's the same as rotate -90 degrees:
rotate_counter_clockwise <- function(x) { apply(     t(x),2, rev)}

#or if you want a library to help make things easier to read:
#install.packages("pracma")
library(pracma)
rotate_one_eighty <- function(x) { rot90(x, 2) }
rotate_two_seventy <- function(x) { rot90(x, -1) }

foo = matrix(1:9, 3)
foo

foo = rotate_clockwise(foo)
foo

foo = rotate_counter_clockwise(foo)
foo

foo = rotate_one_eighty(foo)
foo

プリント：

     [,1] [,2] [,3]
[1,]    1    4    7          #original matrix
[2,]    2    5    8
[3,]    3    6    9
     [,1] [,2] [,3]
[1,]    3    2    1
[2,]    6    5    4          #rotated 90 degrees
[3,]    9    8    7
     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8          #rotated -90 degrees
[3,]    3    6    9
     [,1] [,2] [,3]
[1,]    9    6    3
[2,]    8    5    2          #rotated 180 degrees
[3,]    7    4    1

マトリックスを時計回りに回転させ、次に反時計回りに回転させると元の位置に戻り、180回転すると90回転することに似ていることに注意してください。

2
Eric Leschinski

または、単一の機能に統合されます（Eric Leschinskiに基づく）：

rotate  <- function(x, clockwise=T) {
  if (clockwise) { t( apply(x, 2, rev))
  } else {apply( t(x),2, rev)} 
}
0
bud.dugong