如何将R数据框中的character(0)和list()替换为NA值？

问题分析 #

你遇到的错误是因为na_if(df, "character(0)")会对数据框所有列执行匹配操作，而数据框中包含Date类型列，字符串无法与日期类型比较，从而触发charToDate错误。

解决方案 #

根据数据中character(0)/list()的存在形式，分两种情况处理：

情况1：值为字符串形式的"character(0)"或"list()" #

你的示例数据中teaser列的character(0)是字符串类型，而非实际的空字符向量。可以通过遍历每一列，仅对字符类型列进行替换：

基础R实现

# 遍历所有列，针对字符列替换目标字符串为NA
df[] <- lapply(df, function(col) {
  if (is.character(col)) {
    # 匹配"character(0)"和"list()"，替换为NA
    col[col %in% c("character(0)", "list()")] <- NA_character_
  }
  col
})

dplyr实现

library(dplyr)

df <- df %>%
  mutate(
    across(
      everything(),
      ~ if (is.character(.x)) {
        replace(.x, .x %in% c("character(0)", "list()"), NA_character_)
      } else {
        .x
      }
    )
  )

情况2：值为实际的character(0)对象或空list() #

如果数据中存在的是实际的空字符向量（character(0)）或空列表（list()），而非字符串，需要判断元素的长度是否为0：

# 处理空字符向量character(0)
df[] <- lapply(df, function(col) {
  sapply(col, function(x) {
    if (is.character(x) && length(x) == 0) NA else x
  })
})

# 处理空列表list()
df[] <- lapply(df, function(col) {
  sapply(col, function(x) {
    if (is.list(x) && length(x) == 0) NA else x
  })
})

验证结果 #

处理后，示例数据中的teaser列会被替换为NA，而Date类型列保持不变，不会再触发类型错误。

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