如果列值与另一个数据集中的两列之一匹配，则替换它们

Question

我有如下示例数据:

library(data.table)
dat1 <- fread("code1 code2 code3
              A3     B2   C1
              A4     B3   C2")

dat2 <- fread("codes
              A3  
              A4
              B2
              B3")

我只想用 dat1 中的 code3 替换 dat2 中的代码。

期望的输出:

dat_out <- fread("codes
              C1  
              C2
              C1
              C2")

我应该怎么做？

Answer 1

如果您正在使用 data.table，我们可以使用 melt 和 join by on = ...，例如，

dat2[
  melt(dat1, id.var = "code3"), 
  .(codes = code3),
  on = c(codes = "value")
]

给出

> dat2[melt(dat1, id.var = "code3"), .(codes = code3), on = c(codes = "value")]
   codes
1:    C1
2:    C2
3:    C1
4:    C2

melt(dat1, id.var = "code3") 看起来像

> melt(dat1, id.var = "code3")
   code3 variable value
1:    C1    code1    A3
2:    C2    code1    A4
3:    C1    code2    B2
4:    C2    code2    B3