Discussion :

[Florence Magnin]

Bonjour
Je travaille principalement avec une dizaine de séries temporelles. Jusqu’à maintenant, je les lisais une par une avec la fonction « read.csv » et en assignant un nom à chacune de ces séries.

Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
AA <- read.csv("AAAA.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	AA[[1]] <- as.POSIXct(strptime(AA[[1]], "%d.%m.%Y %H:%M"))
BB <- read.csv("BBBB.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	BB[[1]] <- as.POSIXct(strptime(BB[[1]], "%d.%m.%Y %H:%M"))
Etc….

Puis j’ai pensé à mettre toutes ces lignes de « read.csv » dans une grande fonction afin d’être un peu plus rapide.

J’ai donc fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Readata <- function() {
AA <- read.csv("AAAA.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	AA[[1]] <- as.POSIXct(strptime(AA[[1]], "%d.%m.%Y %H:%M"))
BB <- read.csv("BBBB.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	BB[[1]] <- as.POSIXct(strptime(BB[[1]], "%d.%m.%Y %H:%M"))
}

Seulement, je rencontre quelques problèmes. Mes data.frame n’existent pas une fois que j’implémente la fonction :

Code :

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

1
2
3
4
 
Readata()
str(AA)
Error in str(AA) : object 'AA' not found

J’ai essayé plusieurs choses.

Code :

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

return(AA)

à la fin de la fonction par exemple (je n'ai donc pas bien compris à quoi sert "return"), qui m’écrit le contenu de "AA" dans la console, alors que j’aimerais juste que l’objet AA soit créé et accessible.

Je n'ai qu'une pratique occasionnelle de R et aucun bagage en programmation. J'ai parfois u mal à trouver les informations et à comprendre la logique au travers des didacticiels. Si vous avez donc quelques petites conseils à me fournir sur comment construire une fonction de ce genre, je serrai ravie de les lire.

En vous remerciant d'avance.

[collif]

Dans ton cas, écrire une fonction n'est pas très pertinent. L'idée de la fonction c'est de lui donner quelque chose en entrées, quelle travaille dessus, et qu'elle te renvoie un résultat. Car oui, théoriquement une fonction renvoie toujours quelque chose : c'est ce que fait le return. Toi, tu lui demandes d'appliquer un script grosso modo ça correspondrait plutôt à un source (voir l'aide R ?source)

Code :

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

1
2
3
4
5
6
7
 
mafunction <- function(A, B){
 
  resultat <- A + B
  return(resultat)
 
}

D'accord tu veux faire quelque chose de répétitif, mais ce n'est pas la bonne manière d'opérer. Une alternative intéressante est la fonction lapply() qui peut justement réaliser une opération répétitive sur touts les éléments de quelques chose (d'un vecteur, d'une liste ...). Dans ton cas tu peux imaginer faire un vecteur qui rassemble tous les noms de fichiers et appliquer une fonction qui prendra en entrer un nom de fichier et te renverra un data.frame. Utiliser lapply te permettra d'organiser tes données en une liste de data.frame, chaque élément de la liste étant une série temporelle.

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
 
 
mesFichiers <- c("nom1", "nom2", "nomN")
 
mesDonnees <- lapply(mesFichiers, function(X){
 
   donnees <- read.csv(X, , header=TRUE, sep=";", dec = ".")
   donnees[[1]] <- as.POSIXct(strptime(donnees[[1]], "%d.%m.%Y %H:%M"))
 
   return(donnees)
 
})
 
#pour voir la structure/arborescence de la liste :
str(mesDonnees,1)

D'accord j'ai une fonction, mais cette fois ci elle m'automatise une tache particulière.

Bon courage

[Uranne-jimmy]

Bonjour,
De ce que je peux savoir, le problème vient de la portée des variables, dans ton cas, AA existe dans la fonction mais pas dans le niveau supérieur. En fait une variable existe dans le niveau de sa création et dans les niveaux inférieurs, mais pas dans les niveaux supérieurs.

La solution pourrait être de créer AA avant d'appeler la fonction que tu as créé, cette fonction va ensuite lui assigner ce que tu souhaites lui donner, et après tu pourra l'utiliser.

Après j'ai une expérience limité donc bon tente ^^'

[Florence Magnin]

Merci beaucoup pour ces conseils et informations.
Cela me semble plus clair et me donne matière à réfléchir sur comment construire mes fonctions à l'avenir ainsi que leur pertinence.

Pour ce qui est de créer "AA" par exemple, je le comprend bien conceptuellement, mais j'ai du mal à l'écrire concrètement. J'avais d'ailleurs essayé en faisant:

Code :

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

1
2
3
4
5
6
7
8
9
10
readata <- function(AA,BB) {
AA <- read.csv("AAAA.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	AA[[1]] <- as.POSIXct(strptime(AA[[1]], "%d.%m.%Y %H:%M"))
BB <- read.csv("BBBB.csv"
			, header=TRUE, 
			, sep=";", dec = ".")
	BB[[1]] <- as.POSIXct(strptime(BB[[1]], "%d.%m.%Y %H:%M"))
}

mais cela ne fonctionnait toujours pas.

Si vous avez donc quelques conseils supplémentaires sur comment créer une variable puis lui assigner une valeur en appliquant une fonction, je suis preneuse!!

Merci

[Uranne-jimmy]

Si tu fais une fonction, ce n'est pas pour refaire deux fois le même code avec juste "AA" ou "BB" qui change non ? :/
En partant sur le lapply que collif à montré, pour ton exemple en mettant dans mesFichiers ceci : "AAAA.csv" "BBBB.csv"
Tu auras une liste mesDonnées qui aura dans une première case l'équivalent de AA et dans une deuxième case l'équivalent de BB.

[collif]

L'idée c'est de faire une fonction pour qu'à chaque fois qu'elle mange un X elle te retourne un résultat, ton X, c'est chaque fichier.

On commence 1°) par créer cette fonction :

Code :

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

1
2
3
4
5
6
 
readata <- function(X) {
        donnees <- read.csv(X, header=TRUE, sep=";", dec = ".")
	donnees [[1]] <- as.POSIXct(strptime(donnees [[1]], "%d.%m.%Y %H:%M"))
        return(donnees)
}

2°) On lui prépare les entrées (X) qu'il va manger :

Code :

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

1
2
 
mesFichiers <- c(fichier1='AAAA.csv', fichier1='BBBB.csv)

Et on applique la fonction a chaque élément de ce vecteur de noms de fichiers (chaque élément du vecteur est utilisé tour à tour)

Code :

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

1
2
3
4
5
6
7
 
?lapply
mesDonnees <- lapply(mesFichiers, readata)
 
# et pour rapidement voir la structure de tes données
?str
str(mesDonnees, 1)

Mais je pense que tu n'a pas bien saisi à quoi servent les fonctions, une petite recherche google m'amène à te proposer le premier lien que je trouve sur les fonctions sous R :
http://biol09.biol.umontreal.ca/BIO2...rFonctionR.pdf

[Florence Magnin]

Bonjour,

merci pour l'aide.
En effet, pour ce cas, une fonction n'est peut-être pas des plus appropriée, mais celà me permet au moins de mieux comprendre grâce à vos conseils.
Je voulais simplement créer une fonction car j'ai de nombreuses séries de données, qui changent au cours de mon travail, et je voulais simplement pouvoir les lire rapidement sans être obligée d'écrire la fonction "read.csv" à chaque fois et pour chacune d'elles.

La solution donnée qui consiste à créer la liste qui contiendra tous les data frame: "mes fichiers" est très intéressante. En revanche, comment puis-je à partir de là, créer un data.frame par nom spécifié dans la liste au lieu de faire une seule liste contenant tous mes data.frame.

Est-ce possible?

Sinon, j'écrirai la fonction read.csv pour chacune de mes nouvelles séries et sourcerai le script si c'est en effet plus approprié.

Merci