是否有一个 R 函数可以从列名矩阵中检索值？答案

【问题标题】：Is there an R function to retrieve values from a matrix of column names?是否有一个 R 函数可以从列名矩阵中检索值？
【发布时间】：2019-08-17 07:51:17
【问题描述】：

我有一个矩阵 M，它由一行数据框中的列名组成，这样每个列名在数据框中只有一个对应的值。是否有一个函数可以使用 M 中列名的相应值创建一个新矩阵？

M <- t(data.frame(A=c("label_1","label_2","label_3"),
                  B=c("label_4","label_5","label_6"),
                  C=c("label_7","label_8","label_9")))
M
>   [,1]      [,2]      [,3]     
A "label_1" "label_2" "label_3"
B "label_4" "label_5" "label_6"
C "label_7" "label_8" "label_9"

df <- data.frame(label_2=5, label_1=0, label_4=7,
                 label_6=15, label_3=12, label_5=11,
                 label_9=9, label_8=15, label_7=35)
df
>   label_2 label_1 label_4 label_6 label_3 label_5 label_9 label_8 label_7
1       5       0       7      15      12      11       9      15      35

## I want to create a new data.frame with the values from these labels
> [,1] [,2] [,3]
A    0    5   12
B    7   11   15
C   35   15    9

我知道的一种可能方法是将数据框df 转换为键值对，其中 k = 列名和 v = 值。然后我可以使用以下方法检索值：

apply(M,2,function(x){df[df$k==x,"v"]})

但是对于本应简单的操作来说，这似乎过于复杂......

此外，我不希望使用dplyr 或tidyr 之外的任何库，以尽量减少代码中所需的依赖关系。

【问题讨论】：

我无法理解您的要求。您能否发布一些 M 和 df 的示例数据？
请提供一个可重现的小例子。
反正应该是df[df[[k]]==x, v]。但我真的不明白你想做什么。
我用一些示例数据编辑了帖子，以及结果应该是什么样子。谢谢！
matrix(df[c(M)],nrow(M))

标签： r dataframe matrix data-science names

【解决方案1】：

使用 Onyambu 的建议更新为更简单的代码：

M <- t(data.frame(A=c("label_1","label_2","label_3"),
                  B=c("label_4","label_5","label_6"),
                  C=c("label_7","label_8","label_9")))

df <- data.frame(label_2=5, label_1=0, label_4=7,
                 label_6=15, label_3=12, label_5=11,
                 label_9=9, label_8=15, label_7=35)

P<-matrix(df[c(M)],nrow(M))
P
> P
     [,1] [,2] [,3]
[1,] 0    5    12  
[2,] 7    11   15  
[3,] 35   15   9

【讨论】：

matrix(df[c(M)],nrow(M))
@Onyambu - 更好！
谢谢，这比使用apply快多了！