gepuro.net
gepulog

データ分析エンジニアによる備忘録的ブログ

回帰木+ヒストグラムの図を描く

回帰木の下にヒストグラムがあると格好良いと思ったので、メモしておく。

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)

回帰木

参考


似てる記事

似てない記事