Recoder plusieurs variables en utilisant tidyverse dans R

Question

Peut-être une question stupide, je veux recoder plusieurs variables dans un fichier avec plusieurs conditions.

Exemple de données:

library(tidyverse) 
s <- matrix(sample(1:15, 20, replace = TRUE), ncol = 4) 
s <- as_tibble(s) 

Ce qui donne quelque chose comme ceci:

# A tibble: 5 x 4 
    V1 V2 V3 V4 
    <int> <int> <int> <int> 
1 11  2  5 14 
2  5  4 15  5 
3 13 15  2  5 
4  7 13 15 11 
5 11  5 12  3 

Je veux recoder V1, V2, V3 avec ces conditions, et en laissant V4 égale: si la valeur est inférieur ou égal à 5 ​​obtenir 1, si la valeur est supérieure à 5 mais inférieure ou égale à 10, obtenir 2 et enfin si la valeur est supérieure à 10, obtenir 3.

La sortie doit ok comme ceci:

# A tibble: 5 x 4 
     V1 V2 V3 V4 
     <int> <int> <int> <int> 
    1 3  1  1  14 
    2 1  1  3  5 
    3 3  3  1  5 
    4 2  3  3  11 
    5 3  1  3  3 

Je sais appliquer au sujet, sapply, vapply, mais je voudrais recoder en utilisant les fonctions du package tidyverse et d'une manière élégante.

Merci d'avance!

Answer 1

Pour développer le commentaire @MrFlick, vous pouvez utiliser mutate_at en conjonction avec la fonction case_when dans dplyr. Il ressemblerait à ceci:

s %>% 
    mutate_at(vars(V1:V3), 
      function(x) case_when(x <= 5 ~ 1, x <= 10 ~ 2, TRUE ~ 3)) 

cela vous donnera:

# A tibble: 5 x 4 
    V1 V2 V3 V4 
    <dbl> <dbl> <dbl> <int> 
1  3  1  3  6 
2  2  1  1  8 
3  2  3  1 14 
4  1  3  3 15 
5  1  2  3  7