r - 如何使用一对 row.name 和 col.name 对矩阵进行子集化

Question

我有一个简单的问题。我有一个包含两列字符变量的数据框，对应于单独矩阵中的行名和列名“对”。我只想使用这些对来查找矩阵中的值，并以向量形式返回。

我敢肯定这是微不足道的，但在一个多小时的谷歌搜索中，我无法找到答案。这是一个可重现的示例：

m <- as.matrix(data.frame(a=c(1,2,3,4), 
                          b=c(14,15,16,17), 
                          c=c(27,28,29,30), 
                          d=c(43,44,45,46)))
row.names(m) <- c('w','x','y','z')

df <- data.frame(j=c('x','z','z','w','x'),
                 k=c('a','b','d','d','c'))

#I just want to "lookup" a vector of values equal to c(2,17,46,43,28)
result <- sapply(df, function(x) m[x[1],x[2]])

result
j.c k.b 
28  14

有人可以帮我解决这个问题吗？ sapply可能不是最好的方法，我对其他想法持开放态度。

Answer 1

只需将其强制data.frame为 amatrix并将其用作索引

> m[as.matrix(df)]
[1]  2 17 46 43 28

查看此文档以了解其工作原理。