我有以下 data.table 和 2 个向量：

    > dt = data.table(a = c('hi', 'ok', 'no', 'ok', 'no', 'www', 'whatever'))
> dt
          a
1:       hi
2:       ok
3:       no
4:       ok
5:       no
6:      www
7: whatever
v1 = c('hi', 'no')
v2 = c('HI', 'NO')
> v1
[1] "hi" "no"
> v2
[1] "HI" "NO"

我想将从 dt 中的 v1 中找到的值替换为 v2 中的值。如果我发现“hi”，我将替换为“HI”，如果我发现“no”，我将替换为“NO”。

我发现的最简单的方法是：

invisible(mapply(function(x, y) `[`(dt, grepl(x, a), a := y), x = v1, y = v2))
> dt
          a
1:       HI
2:       ok
3:       NO
4:       ok
5:       NO
6:      www
7: whatever

在data.table 的j 参数中使用mapply 是否有更好的方法甚至方法来做到这一点？

回答

dt[data.table(v1, v2), a:= v2, on = .(a = v1)]

dt
          a
1:       HI
2:       ok
3:       NO
4:       ok
5:       NO
6:      www
7: whatever