使用 data.table 进行映射的最佳方式
Best way to mapply with data.table
我有以下 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
我有以下 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