R如何为矩阵添加第二个标签

Question

我想建立这个矩阵
我试过的

table <- matrix(c(163,224,312,314,303,175,119,662,933,909,871,702,522,307,1513,2400,2164,2299,1824,1204,678,1603,2337,2331,2924,2360,1428,808,2834,3903,3826,4884,3115,2093,89), nrow=5, ncol=7, byrow=T)

rownames(table) <- c("Fair", "Good", "Very Good", "Premium", "Ideal")

 colnames(table) <- c("D", "E", "F", "G", "H", "I", "J")

但结果是这样的:

和我的问题 是如何添加 color和 cut标签

Answer 1

在这里，dimnames(table)是一个“列表”。在原始矩阵“表”中，列表元素未命名。我们可以使用 names将列表的名称从“NULL”更改为首选名称。

names(dimnames(table)) <- c('cut', 'color')
table
#          color
# cut          D    E    F    G    H    I   J
#  Fair       163  224  312  314  303  175 119
#  Good       662  933  909  871  702  522 307
#  Very Good 1513 2400 2164 2299 1824 1204 678
#  Premium   1603 2337 2331 2924 2360 1428 808
#  Ideal     2834 3903 3826 4884 3115 2093  89

注意: table是 R函数，因此最好将对象命名为不同的名称。