另一个例子:Kyphosis
ßkyphosis数据集,是rpart这个包自带的数据集。数据集源自儿童接受外科脊柱矫正手术的样本,数据集有4列、81行(即,81个病例)。
Þkyphosis:采取手术后依然发生脊柱后凸(驼背)的情况
ÞAge:单位是“月”
ÞNumber:代表进行手术的脊柱椎骨的数目
ÞStart:在脊柱上从上往下数、参与手术的第一节椎骨所在的序号
Kyphosis(驼背)
ßlibrary(rpart);
ßct <- rpart.control(xval=10, minsplit=20, cp=0.1)
ßfit <- rpart(Kyphosis~Age + Number + Start,
ß data=kyphosis, method="class",control=ct,
ß parms = list(prior = c(0.65,0.35), split = "information"));
ß## 第一种
ßpar(mfrow=c(1,3));
ßplot(fit);
ßtext(fit,use.n=T,all=T,cex=0.9);
ß## 第二种
ßlibrary(rpart.plot);
ßrpart.plot(fit, branch=1, branch.type=2, type=1, extra=102,
ß shadow.col="gray", box.col="green",
ß border.col="blue", split.col="red",
ß split.cex=1.2, main="Kyphosis决策树");