Я работаю над бумагой, в которой использую вложенную перекрестную проверку. Я стремлюсь представить графическое представление таких. Для раздела данных я использую пакет rsplit. @Topepo представляет здесь отличную виньетку: https://tidymodels.github.io/rsample/reference/tidy.rsplit.html
#Nested Group
library(rsample)
theme_set(theme_bw())
library(rsample)
library(patchwork)
cv <- nested_cv(iris, outside = group_vfold_cv(data = iris, group = "Species", v = 3), inside = rsample::bootstraps(times = 5, apparent = F))
tidy_cv<-tidy(cv)
innerplot<- ggplot(tidy_cv, aes(x = inner_Resample, y = inner_Row, fill = inner_Data)) +
geom_tile() + facet_wrap(~Resample) + scale_fill_brewer()
validation<- ggplot(tidy_cv, aes(x = Resample, y = Row, fill = Data)) +
geom_tile() + facet_wrap(~Resample) + scale_fill_brewer()
validation + innerplot
Однако я на самом деле пытаюсь достичь стека geom_tiles. По сути, что-то вроде этого: https://i.stack.imgur.com/vTSPw.png
Однако это будет facet_wrap ~ Resample. Понятно, что я пытаюсь сделать? Визуальное представление Приветствия