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

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

3 个答案: