The feature autoplot.rpart()in the package survMisccan help you with this. But you will probably need to clear the presentation of the plot, potentially stratification in characters, etc. This seems to be just the starting point:
library(rpart)
library(survMisc)
data(iris)
mod <- rpart(Species~., data=iris)
autoplot(mod, branch=0)

source
share