R绘制估计的条件概率

Question

我目前正在学习哈佛EDX机器学习课程，但不知道如何绘制估算的条件概率，如下所示

目前，我具有以下代码，但无法弄清楚如何创建绘图。这是2结果分类预测，其中黑线将两个结果分开。这是我到目前为止用于数据的代码

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)