回帰木の下にヒストグラムがあると格好良いと思ったので、メモしておく。
library("party")
data(cars)
model <- ctree(dist~., data=cars)
t.style <- node_hist(model, ymax=0.06, xscale=c(0,150), col="red", fill=hsv(0.6, 0.5, 1))
plot(model, terminal_panel = t.style)
参考
- [Rによるデータサイエンス13「樹木モデル」