Discussion :

[jlp65]

Bonjour,
Existe-t-il un moyen simple de calculer (ou modifier) une variable en fonction du contenu des autres variables ?
Je souhaiterais faire quelque chose qui ressemblerait à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
library(dplyr)
test<-data.frame(x=c(1,2,3),y=c(10,20,30))
test <- test %>% mutate_if(x==1,y=7)

mais ce code ne fonctionne pas.
Le mutate_if ne fonctionne, apparemment, qu'avec des conditions (du genre "is_numeric") sur une variable existante qu'on souhaiterait modifier.
Merci

[statnmap]

Si vous cherchez à modifier la valeur des individus, je suppose que c'est plutôt ce code que vous cherchez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
library(dplyr)
test<-data.frame(x=c(1,2,3), y=c(10,20,30))
test <- test %>% 
    mutate(y = if_else(x == 1, 7, y))

Et si vous souhaitez ré-encoder plusieurs valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
library(dplyr)
test<-data.frame(x=c(1,2,3), y=c(10,20,30))
test <- test %>% 
    mutate(y = case_when(
        x == 1 ~ 7,
        x == 2 ~ 12,
        TRUE ~ y)
     )

Et si vous souhaitez ré-encoder encore plus de variables, je vous recommande plutôt de créer une nouvelle table de conversion et de faire une jointure entre la table originale et la table de conversion

[jlp65]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
library(dplyr)
test<-data.frame(x=c(1,2,3),y=c(10,20,30))
test <- test %>% mutate(y=ifelse(x==1,7,y))

[jlp65]

Si vous cherchez à modifier la valeur des individus, je suppose que c'est plutôt ce code que vous cherchez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
library(dplyr)
test<-data.frame(x=c(1,2,3), y=c(10,20,30))
test <- test %>% 
    mutate(y = if_else(x == 1, 7, y))

Et si vous souhaitez ré-encoder plusieurs valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
library(dplyr)
test<-data.frame(x=c(1,2,3), y=c(10,20,30))
test <- test %>% 
    mutate(y = case_when(
        x == 1 ~ 7,
        x == 2 ~ 12,
        TRUE ~ y)
     )

Et si vous souhaitez ré-encoder encore plus de variables, je vous recommande plutôt de créer une nouvelle table de conversion et de faire une jointure entre la table originale et la table de conversion

Merci !