Discussion :

[pitchu]

Bonjour,

Je voudrais savoir comment obtenir ce plot ci-dessous avec ggplot2,
J'ai essayé de faire cela, mais le plot ne se génère pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
library(caret)
library(ggplot2)
 
data(iris)
 
model <- train(Petal.Width ~ ., data = iris, method = "pls")
 
ggplot(model$results, aes(model$results$ncomp, model$results$Rsquared)) +
  geom_point() +
  geom_line() +
  scale_y_continuous(sec.axis = sec_axis(model$results$RMSE~.)) 
  #labs(x = "ncomp", y="r²")