> A <- matrix( c(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5), nrow=5, ncol=3 ) # 行列Aを作る > A [,1] [,2] [,3] [1,] 1 1 1 [2,] 2 2 2 [3,] 3 3 3 [4,] 4 4 4 [5,] 5 5 5 > A1 <- t ( A ) # 転置行列A1を作る > A1 [,1] [,2] [,3] [,4] [,5] [1,] 1 2 3 4 5 [2,] 1 2 3 4 5 [3,] 1 2 3 4 5 > A2 <- data.frame( A1 ) # マトリック形式 A1 をデータフレーム A2 にする > colnames( A2 ) <- c( "変数か", "変数き", "変数く", "変数け", "変数こ") > rownames( A2 ) <- c( "変数A", "変数B