Discussion :

[pitchu]

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 :

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

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

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

[Alpacky]

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 :

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

1
2
3
4
 
pdf()
bwp
dev.off()

cdlt

[pitchu]

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 :

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

[Alpacky]

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

Code :

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

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

[pitchu]

merci de votre aide, ca fonctionne parfaitement.