2017-12-12 2 views
1

私はいくつかの回帰木モデルを構築しています。私はすべてを行いました。今はpdfファイルにツリーを書きたいと思っています。私はそれを生成するために以下のコマンドを使用しています。Rpart PDFファイルへの結果R

pdf(file=paste0("Plots1.pdf"), header= "Rpart Outcome") 
lapply(names(tree.2), function(x)fancyRpartPlot(tree.2[[x]])) 
dev.off() 

tree.2オブジェクトがrpartの8種類のモデルが含まれており、それがリストとして保存されます。

上記のコマンドは魅力的ですが、問題は、リストツリーの名前ごとにPDFの各ページの上部に別々のヘッダーが必要なことです.2(names(tree.2))、私は多くの異なる順列を試しました。しかし、lapplyで解決できない場合は、私はfor loopを使用して上記のことを達成できます。これを行うにはlapplyを使いたいですか?私はそれが分かっていますが、私は今それを行うことができません。ここで使用

ライブラリ:rattlerpart

玩具例:ここでは

tree1 <- rpart(as.formula(mpg ~ hp + wt), data=mtcars) 
tree2 <- rpart(as.formula(mpg ~ am + hp), data=mtcars) 
treex <- list("tree1"= tree1, "tree2"=tree2) 

pdf(file="file.pdf", header="Rpart Outcome") 
lapply(names(treex), function(x)fancyRpartPlot(treex[[x]])) 
dev.off() 

は、私はすべてのページ単位名(treex)のヘッダをしたいです。

重複した質問(見つからない場合)の場合は、すぐに削除させていただきます。これは私のために働くようだ

おかげ

答えて

2

library(rpart) 
    library(rattle) 

    tree1 <- rpart(as.formula(mpg ~ hp + wt), data=mtcars) 
    tree2 <- rpart(as.formula(mpg ~ am + hp), data=mtcars) 
    treex <- list("tree1"= tree1, "tree2"=tree2) 

    pdf(file="file.pdf")#, header="Rpart Outcome") 
    lapply(names(treex), function(x)fancyRpartPlot(treex[[x]], main = x)) 
    dev.off() 

は、私はちょうど、プロットの名前を取りfancyRpartPlotで引数mainを追加しました。

希望すると助かります!

+0

ありがとう、それはきちんとしていた、と私は愚か者は、 – PKumar

関連する問題