人工智能入门-R语言数据分析与数71

 

另一个例子：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决策树");