dtree.pruned<-prune(dtree,cp=.0125)##剪枝 library(rpart.plot) prp(dtree.pruned,type = 2,extra = 104,fallen.leaves = TRUE,main="Decision Tree") dtree.pred<-predict(dtree.pruned,df.validate,type = "class")##预测集分类 dtree.perf<-table(df.validate$class,dtree.pred,dnn=c("Actual","...