可传递地映射标识符

Question

我有三组标识符：“x”、“y”和“z”。我还有两个 2 列数据框，每个数据框将一组标识符映射到另一组标识符。

x2y = data.frame( x = c("A","A","B","B","C","D","E","F"),
                  y = c(1,2,1,2,3,4,4,5) )
y2z = data.frame( y = c(1,1,2,3,4,4,5,5,5),
                  z = c(1,2,3,3,6,7,6,7,8) )

这可以在下图中可视化。请注意，每个箭头对应数据框中的一行。

问题： 如何使用这两个映射（两个数据框）进行映射 从x 到z（显示在上图的右侧）。一世 将其视为“传递映射”：x to y 和 y to z 给出 x to z。 我想要的数据框是...

x2z = data.frame( x = c("A","A","A","B","B","B","C","D","D","E","E","F","F","F"),
                  z = c(1,2,3,1,2,3,3,6,7,6,7,6,7,8) )

注意事项：我的数据框通常约为 50,000 行，因此高效的代码非常重要。当我用循环解决了这个问题时，它需要几分钟才能运行。 我唯一的要求是代码在 R 中。

Answer 1

你想合并：

merge(x2y, y2z)[c('x','z')]
##    x z
## 1  A 1
## 2  A 2
## 3  B 1
## 4  B 2
## 5  A 3
## 6  B 3
## 7  C 3
## 8  D 6
## 9  D 7
## 10 E 6
## 11 E 7
## 12 F 6
## 13 F 7
## 14 F 8

这有助于在必要时名称一致。