R dplyr方法用NA替换所有空因子

Question

不是在此方法中写入和读取数据帧来填充所有空因子，

na.strings=c("","NA")

我只想对所有列应用一个函数，并用 NA 替换空容器。到目前为止，我已经选择了因子列，但不知道下一步该怎么做。

df %>% select_if(is.factor) %>% ....

我如何才能做到这一点，最好使用 dplyr 和/或应用方法

Answer 1

我们可以使用 mutate_if

df <- df %>%
         mutate_if(is.factor, funs(factor(replace(., .=="", NA))))

与 dplyr 0.8.0 ，我们也可以

df %>% 
    mutate_if(is.factor, na_if, y = "") 

或更改 funs (正如评论中提到的@Frederick 一样，它已被弃用为 list)

df %>%
   mutate_if(is.factor, list(~ na_if(., "")))

或使用 base R我们可以分配具体的 levels至 NA

j1 <- sapply(df, is.factor)
df[j1] <- lapply(df[j1], function(x) {is.na(x) <- levels(x)==""; x})

数据

df <- data.frame(col1 = c("", "A", "B", ""), col2 = c("A", "", "", "C"),
         col3 = 1:4)