我有下面概述的格式的数据,其中我需要使用的所有变量要么NA
是变量的名称,要么是变量的名称,我需要将 NA 更改为 0,将字符串更改为 1。我正在尝试使用dplyr::across()
和ifelse()
,但返回的都是 1。我现在唯一可行的解决方案是单独改变每个变量。
如何NA
一次将多个变量的所有 s 更改为 0 并将所有字符串更改为 1?
library(dplyr)
color_names <- c("black", "grey", "white", "purple")
my_colors <- tribble(
~black, ~grey, ~white, ~purple,
NA, "grey", NA, "purple",
NA, NA, "white", NA,
"black",NA, NA, NA,
NA, "grey", NA, NA
)
my_colors %>%
mutate(across(all_of(color_names), ~ifelse(is.na(cur_column()), 0, 1)))
#> # A tibble: 4 x 4
#> black grey white purple
#> <dbl> <dbl> <dbl> <dbl>
#> 1 1 1 1 1
#> 2 1 1 1 1
#> 3 1 1 1 1
#> 4 1 1 1 1
由reprex 包(v0.3.0)于 2021-01-13 创建