Discussion :

[Froggy007]

J'ai un fichier csv dans lequel j'ai plusieurs variables codées "O", "N".
Je souhaite toutes les recoder en des vecteurs numériques 1, 0.

En partant d'un morceau de code de pitipoisson, j'ai développé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Convertir_O_N_to_1_0 <- function (TabName,VarIn,VarOut) {
    factor(VarIn, levels=c("O", "N"), labels=c(1,0))
    VarOut <- as.numeric(as.character(factor(VarIn, levels=c("O", "N"), labels=c(1,0))))
    TabName <- cbind(TabName,VarOut)
    return(VarOut)
}
 
  Convertir_O_N_to_1_0(ConsoAcr,ConsoAcr$V1,TestV1)

Même si return(VarOut) contient bien les nouvelles valeurs sous forme de vecteur, je n'arrive pas à la mettre dans mon dataframe ConsoAcr !!

Quelqu'un à une idée ?
Merci...

[lilly74]

Bonjour,
avez-vous essayé:

Code :

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

ConsoAcr$TestV1 <- Convertir_O_N_to_1_0(ConsoAcr,ConsoAcr$V1,ConsoAcr$TestV1)

?

Bonne journée

PS: désolée pour votre post précédent, je n'ai pas eu le temps de le reprendre. Peut-être ce week end...

[ced]

Bonjour,

Tu te compliques la vie inutilement, je pense.
Pas forcément besoin d'une fonction pour ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
df <- data.frame(x=c("O", "N", "N", "O", "O"), y=rnorm(5))
df
  x          y
1 O  0.2175608
2 N -1.5043594
3 N  0.7936336
4 O -1.1511279
5 O  0.2028331
 
df$z <- ifelse(df$x == "O", 1, 0)
 
  x          y z
1 O  0.2175608 1
2 N -1.5043594 0
3 N  0.7936336 0
4 O -1.1511279 1
5 O  0.2028331 1

[lilly74]

Pas forcément besoin d'une fonction pour ça

Re-bonjour,
effectivement, j'ai écrit avant de réfléchir

Merci Ced pour la rectification

[pitipoisson]

Bonjour,

la solution de Ced est effectivement bien plus directe (et sans doute plus efficace).

La première prend réellement du sens s'il y a plus de deux modalités à recoder.