r - 如何使用具有列名和行名的值创建矩阵？

Question

这是可复制的代码

A <- matrix(sample(1:12,12,T),ncol=4)
rownames(A) <- letters[1:3]
colnames(A) <- letters[11:14]

矩阵现在看起来像

   k  l m  n
a  9 12 5 12
b 10  9 3  2
c 11 11 9  7

我希望我的矩阵看起来像这样

   k                       l                        m                 n
a row a column k value 9   12                       5                12
b row b column k value 10   9                       3                 2
c row c column k value 11  11                       9                 7

与矩阵中的其他值类似（我不写coz会变得凌乱）。

Answer 1

这是一线。全部向量化，无需循环。

matrix(sprintf("row %s column %s value %s",
               rownames(A)[row(A)],
               colnames(A)[col(A)], A),
       nrow = nrow(A))

#      [,1]                      [,2]                      [,3]                    
# [1,] "row a column k value 12" "row a column l value 10" "row a column m value 5"
# [2,] "row b column k value 5"  "row b column l value 7"  "row b column m value 6"
# [3,] "row c column k value 10" "row c column l value 9"  "row c column m value 7"
#      [,4]                     
# [1,] "row a column n value 12"
# [2,] "row b column n value 2" 
# [3,] "row c column n value 9" 

将 set.seed(47)与 A <- matrix(sample(1:12,12,T),ncol=4)一起使用可复制结果。