[ggplot::ggsave] Error in UseMethod("grid.draw")

Bonjour,

J'ai créé un graphe bwplot issus du package lattice et je souhaiterai sauvegarder ce plot, j'utilise la fonction ggsave issue du package ggplot2 mais il me renvoie cette erreur.

Code:

---

1 2	Error in UseMethod("grid.draw") : no applicable method for 'grid.draw' applied to an object of class "trellis"

---

Code:

---

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

library(caret) library(ggplot2)   train <- data.frame("a" = rnorm(100), "b" = rnorm(100)) act <- rnorm(100)   m1 <- train(train, act, method="svmLinear") m2 <- train(train, act, method="svmRadial")   l <- list("svmLinear" = m1, "svmRadial" = m2)   scales <- list(x=list(relation="free"), y=list(relation="free")) bwp <- bwplot(resamples(l), scales=scales, metric=c("Rsquared", "RMSE"))   ggsave(plot = bwp, filename = "bwplot.pdf", dpi = 400, device = "pdf", width = 300,height = 300, units = c("mm"),limitsize = FALSE)

---

Bonjour,

cela signifie juste que les objets treillis (issus de lattice) ne fonctionnent pas avec grid.draw qui est appelé par la fonction ggsave.
peut-être qu'il y a un équivalent ggsave pour lattice mais je ne connais pas, sinon une alternative serait d'utiliser la fonction pdf (ou png...) par exemple

Code:

---

1 2 3 4

pdf() bwp dev.off()

---

cdlt

Bonjour,

Quand j’exécute le code ça me crée bien le plot mais quand je le mets dans une fonction le fichier généré provoque une erreur quand j'essaye de l'ouvrir
Nous n’avons pas pu ouvrir le PDF
Un problème empêche l’ouverture de ce PDF.

(alors qu'en dehors de la fonction j'arrive à ouvrir le fichier comportant le plot)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

library(caret) library(ggplot2)   train <- data.frame("a" = rnorm(100), "b" = rnorm(100)) act <- rnorm(100)   m1 <- train(train, act, method="svmLinear") m2 <- train(train, act, method="svmRadial")   l <- list("svmLinear" = m1, "svmRadial" = m2)   f <- function(){   scales <- list(x=list(relation="free"), y=list(relation="free")) pdf("bwplot.pdf") bwplot(resamples(l), scales=scales, metric=c("Rsquared", "RMSE")) dev.off()   }   f()

---

dans la fonction il faut préciser print(plot_object)

Code:

---

1 2 3 4 5 6 7 8 9

f <- function(){   scales <- list(x=list(relation="free"), y=list(relation="free")) pdf("bwplot.pdf") #print(plot_obj) print(bwplot(resamples(l), scales=scales, metric=c("Rsquared", "RMSE"))) dev.off()   }

---

ca devrait fonctionner je pense

merci de votre aide, ca fonctionne parfaitement.