Discussion :

[khroutchev]

Bonjour, voici mon problème :

dans mon str(data), j'obtiens :

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
18
19
20
21
22
23
 
> str(data)
'data.frame':   1240291 obs. of  11 variables:
 
$ N.Adhérent                  : Factor w/ 112616 levels "1000000,00","1000001,00",..: 30491 30491 30491 30491 30491 30491 30491 30491 30491 30491 ...
 
 $ Regroupement.1              : Factor w/ 30 levels "","Actes de radiologie",..: 2 2 3 3 4 4 6 6 8 8 ...
 $ Tranche.d.age               : Ord.factor w/ 11 levels "17 à 22"<"22 à 27"<..: 8 8 8 8 8 8 8 8 8 8 ...
 
 $ SommeDeQté.d.actes          : int  379 379 3 3 233 233 3 3 27 27 ...
 
 $ Type                        : Factor w/ 8 levels "Couple","Famille * 1enfant",..: 2 2 2 2 2 2 2 2 2 2 ...
 
 $ Surcomplémentaire           : Factor w/ 2 levels "NON","OUI": 1 1 1 1 1 1 1 1 1 1 ...
 
 $ sexe                        : Factor w/ 1 level "1": 1 1 1 1 1 1 1 1 1 1 ...
 $ Expr1                       : Ord.factor w/ 9 levels "- 1 mois"<"1 à 3 mois"<..: 4 5 4 5 4 5 4 5 4 5 ...
 
 $ n.dep                       : Factor w/ 118 levels "01","02","03",..: 29 29 29 29 29 29 29 29 29 29 ...
 
$ DC...LibellÃ..code.activitÃ.: Factor w/ 23 levels "Agroalimentaire",..: 1 1 1 1 1 1 1 1 1 1 ...
 
$ FraisMensuels               : Factor w/ 62996 levels "0,00","0,01",..: 12821 10996 151 141 20785 17773 2670 262 12886 11056 ...

J'aimerais transformer ma variable "$FraisMensuels" en numeric, mais impossible :

Code :

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

1
2
3
 
Error in `$<-.data.frame`(`*tmp*`, "Fraismensuels", value = numeric(0)) : 
replacement has 0 rows, data has 1240291

Effectivement, j'ai codé cette variable comme étant du texte sous Access.
Les séparateurs étant des virgules, R considère cette variable comme quali.
Peut-on transformer ces points en virgules sous R ?
Avez-vous un réponse à ce message d'erreur ?
Merci d'avance

[arm3366]

Bonjour,

• Transformer facteur en numerique: as.numeric(as.character(x))
• Fonction pour remplacer un motif par un autre, par exemple des ";" par des ",": il y a la fonction sub() de la librairie stringr

BC

[khroutchev]

La première expression ne marche pas, la transformation avec character me renvoie le même message d'erreur.

En revanche, j'aurais aimé savoir comment remplacer le motif "," par "." pour les valeurs de la variable $Fraismensuels.

Cordialement

[arm3366]

Les deux marches normalement comme ça:

Code :

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

1
2
3
vv <- c("2,5","6,7","1.4") # vecteur caractere
ww <- sub(",",".", vv) # on remplace les "," par des "."
ss <- as.numeric(as.character(ww))# on transforme en numerique

[khroutchev]

Code :

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

1
2
3
4
 
> data$Fraismensuels1 <- sub(",",".",data$Fraismensuels)
Error in `$<-.data.frame`(`*tmp*`, "Fraismensuels1", value = character(0)) : 
replacement has 0 rows, data has 1240291

Code :

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

1
2
3
4
 
> data$Fraismensuels1<-as.numeric(as.character(data$Fraismensuels))
Error in `$<-.data.frame`(`*tmp*`, "Fraismensuels1", value = numeric(0)) : 
replacement has 0 rows, data has 1240291

Cela ne fonctionne pas

[arm3366]

Est-ce que tu pourrais mettre un peu de données s'il te plait ?
Merci.

PS: Ça serait aussi bien que tu nous montres comment tu lis (charges) ton fichier de données.

[A. D.]

Bonjour,

Pas facile de trouver le problème sans avoir de jeu de données sur lequel le reproduire.
Voici ce que j'ai fait avec un exemple que j'ai créé en essayant de coller au votre (mon data$D correspond à votre data$Fraismensuels1) :

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
data<-data.frame(A=1:5,B=c("A","B","D","C","A"),C=rnorm(5),D=as.factor(c("1,24","2,5","3,648","54,12","132,0")))
 
str(data)
#  'data.frame':   5 obs. of  4 variables:
#   $ A: int  1 2 3 4 5
#   $ B: Factor w/ 4 levels "A","B","C","D": 1 2 4 3 1
#   $ C: num  -2.3616 -1.0887 -0.5375 -0.8089 0.0884
#   $ D: Factor w/ 5 levels "1,24","132,0",..: 1 3 4 5 2
 
data$D<-as.numeric(gsub(",",".",as.character(data$D)))
 
str(data)
#  'data.frame':   5 obs. of  4 variables:
#   $ A: int  1 2 3 4 5
#   $ B: Factor w/ 4 levels "A","B","C","D": 1 2 4 3 1
#   $ C: num  -2.3616 -1.0887 -0.5375 -0.8089 0.0884
#   $ D: num  1.24 2.5 3.65 54.12 132

HTH


Cordialement,


A.D.