为 row.names 和 colnames 列表引用矩阵元素答案

【问题标题】：Referencing matrix elements for a list of row.names and colnames为 row.names 和 colnames 列表引用矩阵元素
【发布时间】：2018-06-08 13:13:53
【问题描述】：

我有一个data.frame，由两列组成，分别对应一个数字矩阵的row.names 和colnames。例如：

myDF <- data.frame(curr1 = sample(row.names(euro.cross), 5), 
                   curr2 = sample(colnames(euro.cross), 5))

我试图返回一个与nrow(myDF) 长度相同的向量，其中包含与myDF$curr1 和myDF$curr2 中的值相对应的euro.cross 的元素。这对于一个元素来说是微不足道的。例如，myDF 中的第一行对应于值euro.cross[myDF$curr1[1], myDF$curr2[1]]。但是，当我将向量传递给方括号时，会返回一个矩阵（即，euro.cross[myDF$curr1, myDF$curr2] 返回一个矩阵，而不是length(myDF$curr1) 的向量）。

如何对这个操作进行矢量化，以便我可以执行以下操作：

myDF$rate <- euro.cross[myDF$curr1, myDF$curr2]

显然，我可以执行一个循环，但我正在寻找一种更优雅的编码方式。到目前为止还没有成功使用 apply 函数。

谢谢！

【问题讨论】：

标签： r matrix dplyr vectorization apply

【解决方案1】：

你可以将myDF转换成矩阵，直接用它从euro.cross中提取元素，这会触发通过字符矩阵进行索引（更多细节见?'['矩阵和数组部分）并满足您的需求：

euro.cross[as.matrix(myDF)]
# [1]  1.204921087 18.305448539  0.003070713  0.010992059  0.057234508

【讨论】：