library(rpart.plot); data(ptitanic)  # for ptitanic data
dat <- ptitanic[,c("survived", "sex", "pclass")] # classic example
library(randomForest)
mod <- randomForest(survived~., data=dat)
plotmo(mod) # default predict type is "response"
plotmo(mod, type="prob")

plotmo(mod, type="prob", persp.ticktype="detailed")
plotmo(mod, type="prob", persp.ticktype="detailed", persp.nticks=3)