如何使用 case_when 和 mutate_all 插入变量值

Question

我有一个看似很小的问题。mutate_all()我想与 结合使用case_when()。示例数据框：

tbl <- tibble( 
  x = c(0, 1, 2, 3, NA),
  y = c(0, 1, NA, 2, 3),
  z = c(0, NA, 1, 2, 3),
  date = rep(today(), 5)
)

我首先使用以下代码制作了另一个数据框，将所有 NA 替换为 0，将值替换为 1。

tbl %>%
 mutate_all(
    funs(
      case_when(
        . %>% is.na() ~ 0,
        TRUE ~ 1
      )))

现在我想用空白替换 NA 值（""，并保留其他值不变。但是，我不知道如何以保留列值的方式设置 TRUE 值。

任何建议将不胜感激！

Answer 1

要保留NAas ""，我们可以使用replace_nafromtidyr

library(dplyr)
library(tidyr)
tbl %>%
     mutate_all(replace_na, "")
# A tibble: 5 x 3
#  x     y     z    
#  <chr> <chr> <chr>
#1 0     0     0    
#2 1     1     ""   
#3 2     ""    1    
#4 3     2     2    
#5 ""    3     3    

对于case_whenor if_else，我们必须确保它们type是相同的。character在这里，我们在插入时转换为""，因此请确保其他值也被强制转换为character类

tbl %>%
   mutate_all(~ case_when(is.na(.) ~ "", TRUE ~ as.character(.)))

如果我们只想使用特定的列，那么我们可以使用mutate_at

tbl %>%
   mutate_at(vars(x:y), ~ case_when(is.na(.) ~ "", TRUE ~ as.character(.)))

另外，为了简化OP帖子中的代码，可以直接用as.integeror强制转换为整数+

tbl %>% 
     mutate_all(~ as.integer(!is.na(.)))

或者如果我们正在使用case_when

tbl %>%
       mutate_all(~ case_when(is.na(.)~ 0, TRUE ~ 1))