iris#调用鸢尾花样本集
library(rpart)#加载决策树包
par(family='STXihei')#图形设置避免出现中文乱码
ct<-rpart.control(minsplit = 20,cp=0.1)
#minsplit表示每个节点中所含样本值,cp为复杂度参数,表示建模过程中仅仅保留模拟拟合度提升0.1及以上的节点
fit<-rpart(Species~Sepal.Length+Sepal.Width+Petal.Length+Petal.Width,data = iris,method = "class",control = ct)
#第一种分类
par(mfrow=c(1,3))
plot(fit)
text(fit,use.n=T,all=T,cex = 0.9)
#查看比较
iris[iris$Petal.Length<2.45,]
x<-iris[iris$Petal.Length>=2.45 & iris$Petal.Width<1.75,'Species']
table(x)