我有以下数据。表和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