sauvegarder un plot dans un fichier

Bonjour,

Je souhaiterai sauvegarder mes plots dans des fichiers, j'ai crée une fonction ou je fais cela mais quand je lance ma fonction je me retrouve avec des images vide où il n'y a que du blanc mais quand je lance chaque ligne de ma fonction dans la console là ça marche parfaitement mais dans la fonction non

Code:

---

1 2 3 4 5 6 7 8 9 10 11

resultat_plot <- function(liste) # liste: liste de plot { png(filename = "resultat/plot1.png") liste$plot1 dev.off()   png(filename = "resultat/plot2.png") liste$plot2 dev.off() }

---

Bonjour,

Je comprends que le code suivant produit bien un fichier avec un graphique :

Code:

---

1 2 3

png(filename = "resultat/plot1.png") liste$plot1 dev.off()

---

Vous pouvez vérifier le passage de paramètre en ajoutant par exemple str(liste) au début de votre fonction.

Cordialement,

bonjour,

j'obtiens cette erreur quand je fais resultat_plot(str(liste))

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

List of 2 $ train:List of 9 ..$ data :'data.frame': 0 obs. of 0 variables ..$ layers :List of 2 .. ..$ :Classes 'LayerInstance', 'Layer', 'ggproto' <ggproto object: Class LayerInstance, Layer> aes_params: list compute_aesthetics: function compute_geom_1: function compute_geom_2: function compute_position: function compute_statistic: function ...

---

Bonjour,

L'idée était d'ajouter str(liste) au début de votre fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

resultat_plot <- function(liste) # liste: liste de plot { str(liste)   png(filename = "resultat/plot1.png") liste$plot1 dev.off()   png(filename = "resultat/plot2.png") liste$plot2 dev.off() }

---

Cordialement,

j'ai le même message qu'avant avec en plus à la fin ça

Code:

---

1 2	null device 1

---

et les images crées sont vides

Bonjour,

Je comprends que le code suivant produit bien un fichier avec un graphique :

Code:

---

1 2 3

png(filename = "resultat/plot1.png") liste$plot1 dev.off()

---

Pouvez-vous indiquer comment vous avez construit l'objet liste et fournir un code exécutable, par exemple avec les graphiques plot(cars) et plot(sin, -pi, 2*pi).

Merci,

bonjour,

En mettant en place un code exécutable j'ai pu comprendre pourquoi cela ne marcher pas, en fait dans ma liste plot1 et plot2 sont des plots crées avec la librairie ggplot2 en utilisant qplot(), dans ma fonction j'ai rajouté plot(liste$plot1) et plot(liste$plot2)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

resultat_plot <- function() { X <- qplot(matrix(rnorm(50 * 10), nrow = 50, ncol = 1), matrix(rnorm(50 * 10), nrow = 50, ncol = 1)) Y <- qplot(matrix(rnorm(50 * 10), nrow = 50, ncol = 1), matrix(rnorm(50 * 10), nrow = 50, ncol = 1))   liste <- list("plot1" = X, "plot2" = Y)   png(filename = "resultat/plot1.png") plot(liste$plot1) dev.off()   png(filename = "resultat/plot2.png") plot(liste$plot2) dev.off() }

---

j'ai aussi un troisième graphe à écrire dans un fichier, il a été générer avec la librairie keras (c'est pour faire du réseau de neurone) c'est un objet "keras_training_history" (class(...)), pour l'écrire dans un fichier j'ai du faire:

Code:

---

1 2 3 4

png(filename = "resultat/plot3.png") plot(plot(liste$plot_keras)) dev.off()

---

Il y aurait une autre manière de faire pour écrire les graphes dans des fichiers ? c'est normal de faire un plot d'un qplot ou de faire deux fois plot ?