替换相应行名称的矩阵单元格

Question

我正在使用看起来像这个输入的矩阵。

我正在尝试用相应的行名替换第2列上的数字。即所有1都将被row.name（矩阵）替换。因此，我有以下输出。

实际的矩阵对于循环应用而言太大了...我很抱歉我正在使用图像，因为我发现在excel上表示更容易。我也很抱歉在R ...是个新人。

Answer 1

矢量化方法（应该是你能得到的最快）：

mat <- matrix(c(letters[1:11], 1,1,1,2,2,3,3,3,4,4,4), ncol = 2)
    colnames(mat) <- c("A", "B")
    rownames(mat) <- 1:11

> mat
   A   B  
1  "a" "1"
2  "b" "1"
3  "c" "1"
4  "d" "2"
5  "e" "2"
6  "f" "3"
7  "g" "3"
8  "h" "3"
9  "i" "4"
10 "j" "4"
11 "k" "4"


mat[, "B"] <- mat[as.numeric(mat[, "B"]), "A"]
> mat
   A   B  
1  "a" "a"
2  "b" "a"
3  "c" "a"
4  "d" "b"
5  "e" "b"
6  "f" "c"
7  "g" "c"
8  "h" "c"
9  "i" "d"
10 "j" "d"
11 "k" "d"

或者您可以使用sapply：

mat[, "B"] <- sapply(mat[, "B"], function(x) mat[as.numeric(x), "A"])

编辑：我已将矢量化解决方案置于顶部，因为这显然是更快（甚至最快？）的方法。