如何在矩阵未知的情况下设置矩阵的唯一行名和列名？

Question

我有矩阵像:

     [,1][,2][,3][,4]
[1,]  12  32  43  55
[2,]  54  54  7   8
[3,]  2   56  76  88
[4,]  58  99  93  34

我事先并不知道矩阵中有多少行和列.因此,我需要动态创建行名和列名.

我可以直接命名列(行),如:

colnames(rmatrix) <- c("a", "b", "c", "d")

但是,如何动态创建名称矢量以适应矩阵的尺寸？

nm <- ("a", "b", "c", "d")
colnames(rmatrix) <- nm 

Answer 1

您可以使用rownames和colnames设置do.NULL=FALSE以动态创建名称,如下所示:

set.seed(1)
rmatrix  <-  matrix(sample(0:100, 16), ncol=4)

dimnames(rmatrix) <- list(rownames(rmatrix, do.NULL = FALSE, prefix = "row"),
                          colnames(rmatrix, do.NULL = FALSE, prefix = "col"))

rmatrix
     col1 col2 col3 col4
row1   26   19   58   61
row2   37   86    5   33
row3   56   97   18   66
row4   89   62   15   42

您可以根据需要更改prefix为行/列命名.

Answer 2

要动态命名列(或行),您可以尝试

colnames(rmatrix) <- letters[1:ncol(rmatrix)]

其中letters可以用您选择的列名矢量替换.你可以为行做类似的事情.  

Answer 3

您可以使用provideDimnames. 一些具有不同定制程度的示例：

m <- matrix(1:12, ncol = 3)

provideDimnames(m)
#   A B  C
# A 1 5  9
# B 2 6 10
# C 3 7 11
# D 4 8 12

provideDimnames(m, base = list(letters, LETTERS))
#   A B  C
# a 1 5  9
# b 2 6 10
# c 3 7 11
# d 4 8 12

provideDimnames(m, base = list(paste0("row_", letters), paste0("col_", letters)))
#       col_a col_b col_c
# row_a     1     5     9
# row_b     2     6    10
# row_c     3     7    11
# row_d     4     8    12