rpartで決定木を綺麗に書く

オプションがわかりにくい
uniform=T
use.n=T
pretty=1
あとprettyでラベルを表示する具合に応じてmarginを指定する
（ラベルの文字列が長いとはみだすので）

> z <- data.frame(Titanic)
>Titanic1 <- data.frame(Class = rep(z[, 1], z[, 5]), Sex = rep(z[, 2], z[, 5]),
+ Age = rep(z[, 3], z[, 5]), Survived = rep(z[, 4], z[, 5]))
#Freq列の値を使って展開してやる
>Titanic1.rp <- rpart(Survived~.,Titanic1)
>plot(Titanic1.rp,margin=0.1,uniform=T)
>text(Titanic1.rp,use.n=T,all=F,uniform=T,pretty=1)

maptreeパッケージを使えばもっと簡単にできる
完全に分離できるとき（殆ど無いと思うけど）は
こっちの方がいいかもしれない
http://stackoverflow.com/questions/2597310/how-do-i-interpret-rpart-splits-on-factor-variables-when-building-classification

require(maptree)
draw.tree(Titanic1.rp)