Discussion :

[Islem810]

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



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 :

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

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 :

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

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 :

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

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

[olivier.decourt]

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 :

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

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

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

Code :

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

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.

[Islem810]

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 :

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

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 :

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

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 :

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

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.

[xavier-Pierre]

bonjour,

Code :

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

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