r - 如何对整个数据框使用 case_when？

Question

我想将 case_when 应用于数据框中的所有列。

set.seed(1)
data <- tibble(x = runif(10), y = x * 2) 
data

对于所有高于 0.5 的列，我想用字符串“>0.5”替换，对于高于 1 的列，我想用“>1”替换。

我试过 case_when，但似乎我必须指定像 x 和 y 这样的列。我想在不指定列的情况下使用 case_when，而是在整个数据框上使用它。

Answer 1

purrr 解决方案；

library(purrr)

data %>%
map_df(~case_when(.x > 0.5 & .x < 1 ~ ">0.5",
                  .x >= 1 ~ ">1"))

输出；

   x     y    
   <chr> <chr>
 1 NA    >0.5 
 2 NA    >0.5 
 3 >0.5  >1   
 4 >0.5  >1   
 5 NA    NA   
 6 >0.5  >1   
 7 >0.5  >1   
 8 >0.5  >1   
 9 >0.5  >1   
10 NA    NA