R График оценочной условной вероятности

Question

В настоящее время я изучаю курс машинного обучения Harvard EDX, но не понимаю, как вы строите предполагаемую условную вероятность, как показано ниже

Сейчас у меня естьследующий код, но не смог выяснить, как создается сюжет.Это прогноз классификации с двумя исходами, где темная линия разделяет оба исхода.Это код, который у меня есть для данных

library(dslabs)
data('mnist_27')
train_rpart <- train(y ~ .,
                 data=mnist_27$train,
                 method="rpart",
                 tuneGrid = data.frame(cp=seq(0,0.1, length=25)))
 confusionMatrix(predict(train_rpart, mnist_27$test), mnist_27$test$y)