Discussion :

[GatH7614]

Bonjour,

Je dispose d'une matrice de données que je lis à partir d'un fichier csv :

Code :

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

data=read.csv2("myfile.csv",header=TRUE)

Les premières lignes de ma matrice data de taille 1461 3 sont comme suit :

Code :

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

1
2
3
4
5
6
 
1    01/01/2004     9        SS
2    02/01/2004    24        NE
3    03/01/2004    25        SS
4    04/01/2004    21        SO
5    05/01/2004    16        SS

A partir de cette matrice, j'aimerai créer une autre matrice qui ait les attributs suivants :
Jour Mois Année Nombre (je garde la colonne 2 sans rien modifier) Lettres (idem)

J'ai demandé le typeof(data[1,1]) et R me répond "integer"
Quand je lui demande is.integer(data[1,1]) il me répond FALSE ...

Merci pour votre aide !

[pitipoisson]

Bonjour,

Que renvoient

Code :

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

mode(data[ , 1])

et

Code :

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

class(data[ , 1])

?

[GatH7614]

Ça me renvoie :

Code :

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

1
2
3
4
> mode(data[ , 1])
[1] "numeric"
> class(data[ , 1])
[1] "factor"

Par contre, si je lis mes données comme ceci :

Code :

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

data=as.matrix(read.csv2("myfile.csv",header=TRUE))

J'obtiens :

Code :

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

1
2
3
4
5
6
7
8
> typeof(data[1,1])
[1] "character"
> is.character(data[1,1])
[1] TRUE
> mode(data[ , 1])
[1] "character"
> class(data[ , 1])
[1] "character"

Par contre cela va me poser un problème pour la 2ème colonne où là dans le fichier myfile.csv j'ai des entiers ? A moins qu'il existe une fonction pour les convertir facilement ?

Merci beaucoup d'avance,

[GatH7614]

En fait j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
 
date=matrix(nrow=dim(data)[1],ncol=3)
for (i in 1:dim(data)[1])
{
date[i,1]=as.integer(strftime(as.Date(data[i,1],format="%d/%m/%Y"),"%d"))
date[i,2]=as.integer(strftime(as.Date(data[i,1],format="%d/%m/%Y"),"%m"))
date[i,3]=as.integer(strftime(as.Date(data[i,1],format="%d/%m/%Y"),"%Y"))
}

Merci quand même !

[pitipoisson]

Bonjour,

Juste pour info, si on ne veut pas passer par les formats de dates, on peut faire de la recherche de motif (expressions régulières) dans les chaînes de caractères :

Code :

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

1
2
3
4
5
6
> as.integer(sub("([[:digit:]]{2})/[[:digit:]]{2}/[[:digit:]]{4}", "\\1", "30/11/2009", perl=TRUE))
[1] 30
> as.integer(sub("[[:digit:]]{2}/([[:digit:]]{2})/[[:digit:]]{4}", "\\1", "30/11/2009", perl=TRUE))
[1] 11
> as.integer(sub("[[:digit:]]{2}/[[:digit:]]{2}/([[:digit:]]{4})", "\\1", "30/11/2009", perl=TRUE))
[1] 2009

Ceci dit, ta solution à l'avantage de vérifier si la date en question existe bien

Code :

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

1
2
> as.integer(strftime(as.Date("31/11/2009",format="%d/%m/%Y"),"%d"))
[1] NA