这两个图分别运行良好，但是当我尝试编织时，仅显示第二个决策树 注意：adult $ educ_num + adult $ hourweek_num，这两个类型分别是double和binary 0＆1
fit<-rpart(adult$income~ adult$sex+adult$educ_num+adult$hourweek_num,data=adult)
rpart.plot(fit)
fit2<-rpart(adult$income~ adult$sex+adult$educatoin_num+adult$hours_per_week,data=adult)
rpart.plot(fit2)