如何仅在data.table的字符列中将NA替换为空字符串？

首先，咱们先拆解下你原来的循环为啥没生效——核心是两个小错误：

1. 用DT$i调用列是不对的：i是循环变量，DT$i会把i当成字面量的列名（而不是循环里的变量值），得用DT[[i]]来动态获取对应列；
2. 条件is.na(i)逻辑错误：这里的i是列名字符串，不是列的数值，要判断列里的NA，得用is.na(DT[[i]])或者在data.table的括号里用get(i)来获取列值。

修正后的for循环 #

先给你把循环改对，这样你能直观看到问题点：

for (i in names(DT)) {
  if (is.character(DT[[i]])) {  # 用is.character更稳妥，避免class返回多个值的情况
    DT[is.na(get(i)), (i) := ""]
  }
}

这里补充下：

• (i) := ""的括号必须加，不然会把列名直接改成i，而不是循环变量对应的列；
• 用is.character()代替class(...) == "character"更可靠，因为有些列的class可能返回多个值（比如因子列），is.character能准确判断是否为字符类型。

更高效的data.table批量处理方法 #

既然用了data.table，咱们完全可以不用循环，利用它的.SDcols特性来批量处理，这也是data.table推荐的高效写法：

# 第一步：筛选出所有字符类型的列
char_cols <- names(DT)[sapply(DT, is.character)]
# 第二步：批量替换这些列的NA为空字符串
DT[, (char_cols) := lapply(.SD, function(x) replace(x, is.na(x), "")), .SDcols = char_cols]

甚至可以写成一行精简版：

DT[, (names(DT)) := lapply(.SD, function(x) if(is.character(x)) replace(x, is.na(x), "") else x)]

这个写法会直接修改原data.table，不需要额外赋值。

如果你习惯tidyverse的写法 #

要是你平时用dplyr更多，也可以用across()来快速处理：

library(dplyr)
DT <- DT %>%
  mutate(across(where(is.character), ~replace_na(., "")))

where(is.character)精准筛选所有字符列，replace_na直接把NA替换成空字符串，非常直观。

最终效果验证 #

不管用哪种方法，处理后的DT都会符合你的预期：

> DT
   x y
1: 1 a
2: NA b
3: 2  

内容的提问来源于stack exchange，提问作者Mihail