Aide sur une fonction recodant plusieurs variables

Version imprimable

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:

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...

15/09/2011, 09h35
lilly74

Bonjour,
avez-vous essayé:

Code:

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...

Bonjour,

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

Code:

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

15/09/2011, 09h59
lilly74

Citation:

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

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

Merci Ced pour la rectification :)
15/09/2011, 14h03
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.