Discussion :

[pitchu]

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 :

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

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()
}

[mgdondon]

Bonjour,

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

Code :

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

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,

[pitchu]

bonjour,

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

Code :

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

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
    ...

[mgdondon]

Bonjour,

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

Code :

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

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,

[pitchu]

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

Code :

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

1
2
null device
         1

et les images crées sont vides

[mgdondon]

Bonjour,

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

Code :

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

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,

[pitchu]

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 :

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

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 :

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

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 ?