在 R 中循环创建矩阵和行/列名称

Question

我想要一个 7*17 矩阵。
行名来自 2：8（第一行名称为 2，第二行名称为 3 和 ...列
名是 4：17（第一列有名称 4，第二列有名称 5 和 ...）
矩阵元素被填充使得 mat[i，j] = 第 i 行的行名 * 第 j 列的列名。

我在尝试时出错：

mat <- matrix(0, nrow = 7, ncol = 17 , byrow = TRUE)
for (rr in 2:8) {
  row.names(mat)[rr-1] <- paste('class', rr, sep='.')
  for(cc in 4:20){
    mat[rr-1,cc-3] <- rr*cc
    colnames(mat)[cc] <- paste('count', cc, sep='.')
      }
}

这是错误：

dimnames错误（x）

我该如何解决这个问题？

Answer 1

问题中的代码有几个问题：

1. 它正在尝试将名称插入到名称向量中，但尚未在矩阵上设置名称
2. 冷名称（mat）[cc]

1） 建议改为这样做：

rr <- 2:8
cc <- 4:20
mat <- outer(rr, cc)
dimnames(mat) <- list(paste0("class.", rr), paste0("count.", cc))

2）或者，这可以通过使用listcompr包的列表推导来完成。对于 rr 中 r 的每个值，gen.named.vector 调用创建一个形成一行的命名向量，然后 gen.named.matrix 从这些行创建一个矩阵。

library(listcompr)
gen.named.matrix("class.{r}", gen.named.vector("count.{c}", c*r, c = cc), r = rr)

3） 如果你想修正问题中的代码，那么就这样做：

mat <- matrix(0, nrow = 7, ncol = 17 ,
  dimnames = list(character(7), character(17)))
for (rr in 2:8) {
  rownames(mat)[rr-1] <- paste('class', rr, sep='.')
  for(cc in 4:20) {
    mat[rr-1, cc-3] <- rr * cc
    colnames(mat)[cc-3] <- paste('count', cc, sep='.')
  }
}