Utiliser strsplit sur une colonne entière

Version imprimable

11/08/2010, 17h21
habasque

Utiliser strsplit sur une colonne entière
Bonjour,

Je cherche à extraire le mois d'un champ date de format "dd/mm/yyyy" de mon dataframe via la fonction strplit.
Je tente avec le code suivant :
Code:

1 2 monDataFrame$mois_test = strsplit(monDataFrame$MOIS,"/")[[2]]
mais forcément la colonne "mois_test" se remplit avec le mois de la 2ème ligne du dataFrame.
Je ne vois pas comment appliquer la fonction strsplit à l'ensemble de mon dataframe.

Merci d'avance pour votre aide,

Bonjour,

Est-ce que le code suivant t'aide ?

Code:

1
2
3
4
5
6
7
8
9
10
11
 
mois <- 2 # Disons que tes dates sont dans deuxième colonne de ton data.frame "df"
liste.des.chaines.coupees <- strsplit(as.character(df[,mois]),"/"))
nouveau.mois <- vector(length=length(df[,mois]))
for (i in 1:length(df[,mois])){
    # De la i ème chaîne, on prend la deuxième composante (mm dans dd/mm/yyyy)
    nouveau.mois[i] <- liste.des.chaines.coupees[[i]][2] 
}
 
#Y a plus qu'à mettre nouveau.mois dans ton data.frame. Par exemple :
df[,mois] <- nouveau.mois

Marc

12/08/2010, 11h09
habasque

Je ne voulais pas faire de boucle mais oui nickel ca fonctionne !
12/08/2010, 11h21
overmarc

Citation:

Envoyé par habasque

Je ne voulais pas faire de boucle mais oui nickel ca fonctionne !

Tu as raison, c'est mieux sans boucle. Je te propose du coup :

Code:

matrix(unlist(liste.des.chaines.coupees), ncol=3, byrow=T)[,2]

Je pense que ça te renvoie ce que tu veux.

Marc

Salut,
Si j'ai bien compris t'a une colonne avec des données au format "Date" (sinon au pire on peut faire un as.Date) et tu veux dans une nouvelle colonne avoir les mois. Tu peut utiliser la fonction "format.Date" ou simplement "format" (mais appliqué a un element de type "Date").
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 set.seed(123) Data <- data.frame(Var1 = rnorm(10), temps =as.Date( c("17/08/2010", "04/05/2010", "03/02/2010", "11/11/2009", "29/08/2008", "01/07/2001", "10/10/1999", "08/04/1996", "10/07/1999", "06/02/2000"), "%d/%m/%Y")) Data$mois <- format(Data$temps, '%b') > head(Data) Var1 temps mois 1 -0.56048 2010-08-17 août 2 -0.23018 2010-05-04 mai 3 1.55871 2010-02-03 févr. 4 0.07051 2009-11-11 nov. 5 0.12929 2008-08-29 août 6 1.71506 2001-07-01 juil.
A la place de %b tu peut mettre %B pour avoir les mois en toutes lettres ou %m pour avoir les mois en chiffres (eg. 08,05,....)
En esperant que c'est ce que tu voulais

13/08/2010, 11h58
habasque

Merci, j'ai retenu la solution de overmarc.