使用 data.table 在单一条件下替换多列

我想将默认值（255）更改为 NA。

dt <- data.table(x = c(1,5,255,0,NA), y = c(1,7,255,0,0), z = c(4,2,7,8,255))
coords <- c('x', 'y')

其中给出了以下代码：

     x   y   z
1:   1   1   4
2:   5   7   2
3: 255 255   7
4:   0   0   8
5:  NA   0 255

我最想出的是：

dt[.SD == 255, (.SD) := NA, .SDcols = coords]

请注意，z 列保持不变。因此，仅指定指定的列，而不是所有列。

但这并不能帮助我找到解决方案：

     x   y   z
1:   1   1   4
2:   5   7   2
3:  NA  NA   7
4:   0   0   8
5:  NA   0 255

我正在寻找可持续的解决方案，因为原始数据集有几百万行。

EDIT:

我找到了一个解决方案，但它非常丑陋，而且速度肯定太慢，因为它需要几乎 10 秒才能通过 22009 x 86 的数据帧。有人有更好的解决方案吗？

代码：

dt[, replace(.SD, .SD == 255, NA), .SDcols = coords, by = c(colnames(dt)[!colnames(dt) %in% coords])]

以下是如何将列保留在外面.SDcols,

library(data.table)
dt[, (coords) := replace(.SD, .SD == 255, NA), .SDcols = coords]

这使，

    x  y   z
1:  1  1   4
2:  5  7   2
3: NA NA   7
4:  0  0   8
5: NA  0 255