Discussion :

[ruswal]

Bonjour,

Voilà. J'ai un dataframe qui contient plusieurs colonnes dont la colonne "x57" qui est un vecteur d'entiers qui sont égaux soit à 0 ou 1
Je décide de transformer cette colonne en factor avec

Code :

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

data$x57 <- as.factor(data$x57)

Quand j'écris cette colonne dans un fichier avec

Code :

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

write(data$x57, file = "my_column.csv")

Le fichier contient des 2 à la place des 1 et des 1 à la place des 0.

Je n'ai pas ce problème si je ne fait pas de as.factor

Comment expliquer ceci ?

[ruswal]

En fait j'ai confondu label et level d'un factor. Je vais essayer de comprendre ça posément

[faubry]

Le résultat est normal. La documentation de write le dit : les facteurs sont convertis en nombre avant d'être écrits. Ce qui est écrit dans le fichier est donc le codage interne du facteur qu'on obtient par la fonction mode.

Code :

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

1
2
3
write(data$x57, file = "my_column.csv")
# est équivalent à
write( as.numeric( data$x57), file = "my_column.csv")

Il faut écrire :

Code :

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

write( as.character( as.numeric( data$x57)), file = "my_column.csv")

[tototode]

Bonjour,

Il y a une erreur ici : write( as.character( as.numeric( data$x57)), file = "my_column.csv"), il faut écrire : write( as.numeric( as.character( data$x57)), file = "my_column.csv").

cdlt

[faubry]

En effet, j'ai fait une erreur en écrivant mon code en reprenant le as.numeric à l'intérieur du as.character. Le code corrigé est :

Code :

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

write( as.character( data$x57), file = "my_column.csv")

puisque as.character appliqué à un facteur donne les étiquettes (labels) associées à ce facteur. Ainsi le fichier contiendra bien les bonnes valeurs. Pour vérification

Code :

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

1
2
3
4
5
6
7
8
x <- factor( 0:1)
x
[1] 0 1
Levels: 0 1
as.numeric( x)
[1] 1 2
as.character( x)
[1] "0" "1"

Avec toutes mes excuses

[ruswal]

Entre temps j'ai trouvé une autre solution :

Code :

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

write(levels(y_pred)[y_pred], file = "my_column.csv")