r - 编写一个函数，根据数据帧的列值在矩阵中查找元素

Question

我有一个数据框，其起点和终点名称如下(我将简化以使其更清晰):

Origin Dest Time 
     A    B  Mon
     B    C  Wed
     C    B  Fri

我还有一个距离矩阵，用于查找位置 A、B 和 C 之间的距离。

   A  B  C
A  0  8 11
B  8  0  6
C 11  6  0

我如何从距离矩阵中提取距离并将其输入到数据框每一行的单独列(例如df$Distance)中？

Answer 1

借助矩阵索引的力量(使用 Roman 的数据):

mt[as.matrix(xy[c("Origin","Dest")])]
#[1] 8 6 6

这是通过将Origin和Dest与距离矩阵的rownames和colnames相匹配来实现的。