Faire une boucle générant des graphiques simples de séries temporelles

Bonjour,
j'ai une base de données appelée 'base1' ressemblant à ceci :

Pièce jointe 561184

Il y'a 4 colonnes : la 1 sert comme date en x et de 2:4 trois graphiques devraient être générés, chacun en fonction de la date.

Voici mon graphique pour la variable en colonne 2 qui fonctionne parfaitement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

library(ggplot2) library(scales) ggplot(base1, aes(x = Date, y = PrixIndiceG_NewF)) + geom_line(color = "indianred3", size=1 ) + geom_smooth() + labs(title = "Titre", subtitle = "2017 à 2020", x = "Date", y = "Nom de la variable") + theme_minimal()

---

Pour ma boucle, j'ai essayé plusieurs choses :

1) une fonction qui n'a pas marché :

Code:

---

1 2 3 4 5 6 7 8

plotTimeseries = function(x, na.rm = TRUE) { nm = names(x) for (i in 2:4) { print(ggplot(x, aes(x=Date,y=nm[i] ) + geom_line()+ geom_smooth()) } } plotTimeseries(base1)

---

2) Une loop

Code:

---

1 2 3 4 5 6

plots=list() for (i in 2:4){ plots=ggplot(base1[,i], aes(x=Date,y=base1[,i]) + geom_line()+ geom_smooth() } print(plots)

---

Aucune ne fonctionne, svp avez-vous des idées ?

Merci

Bonjour.
Quand tu as un paramètre comme un nom de variable à intégrer dans {ggplot2}, une solution est de remplacer la fonction aes par aes_string qui attend des arguments sous forme de textes.
Dans ta solution 1, ça donnerait

Code:

---

aes_string(x="Date",y=nm[i])

---

Par contre je ne vois pas vraiment à quoi sert de faire une fonction. Est-ce que

Code:

---

1 2 3 4 5

nm = names(base1) for (i in 2:4) { print(ggplot(base1, aes_string(x="Date",y=nm[i]) ) + geom_line()+ geom_smooth()) }

---

n'est pas suffisant ?


Encore une autre solution, sans boucle : 1) transformer tes données avec tidyr::pivot_longer pour que les colonnes 2 à 4 deviennent autant de lignes ; tu aurais donc 3 fois plus de lignes qu'au départ dans ton nouveau data.frame. Puis 2) tu fais un seul ggplot sur ces données, avec un facet_wrap sur la colonne contenant l'ancien nom de variable. Ainsi tu génères tes trois graphiques, qui peuvent être sur la même image, avec des axes en commun (ou pas) et donc comparables.

Bonjour,

Merci beaucoup pour votre réponse. Je voulais faire une fonction parce que j'ai plein de graphiques de ce type dans d'autres bases à tracer.

Cependant j'ai encore une question dans votre 2ème solution. Il marche parfaitement mais si jamais j'oublie d'utiliser le aes_string, quelle est la solution dans ce cas ? J'ai essayé de modifier légèrement votre code :

Code:

---

1 2 3 4 5

for (i in 2:4) { print(ggplot(base1, aes(x=Date,y=i) + geom_line()+ geom_smooth()) }

---

Ce code génère bien 3 graphiques mais je ne vois quasiment rien à part une ligne bleu, pourquoi ? Quelle aurait été la solution dans ce cas ?


Par ailleurs avant j'enregistrais mes graphs de cette manière :

Code:

---

1 2 3 4

png(filename = "testgraphs.png", width = 480, height = 480)#Ouverture .... graphs dev.off()#Fermeture

---

Cette solution m'enregistre un seul graphique :

Code:

---

1 2 3 4 5 6 7 8 9 10

nm = names(base1) for (i in 2:4) { png(filename = "testgraphs.png", width = 480, height = 480)#Ouverture print(ggplot(base1, aes_string(x="Date",y=nm[i]) ) + geom_line(color = "indianred3", size=1)+ geom_smooth() + theme_minimal()) dev.off()#Fermeture }

---

Avez vous une idée pour automatiser ça ? j'aimerai bien introduire le [i] dans la ligne de sauvegarde du fichier png mais je ne vois pas comment.

bonjour,

Code:

---

1 2 3

.... png(filename =paste0( "testgraphs",i,".png"), width = 480, height = 480) ...

---