不确定我是否会赞成你的翻译列在同一个数据集中，尽管如此，这会给予你正确的答案。

library(data.table)
library(stringr)

# select your columns of interest
cols <- 1:3

# create a named vector of your replacements
v <- dt$new_value
names(v) <- dt$value

# loop over the columns and replace values
dt[, (cols) := lapply(.SD, str_replace_all, v), .SDcols = cols]

结果

V1 V2 V3 value new_value
1:  A  C  B     1         A
2:  C  A  4     2         B
3:  5  4  A     3         C

数据

dt <- fread("V1 V2  V3  value   new_value
1   3   2   1   A
3   1   4   2   B
5   4   1   3   C")