私はいくつかの回帰木モデルを構築しています。私はすべてを行いました。今は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
を使いたいですか?私はそれが分かっていますが、私は今それを行うことができません。ここで使用
ライブラリ:rattle
、rpart
玩具例:ここでは
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)のヘッダをしたいです。
重複した質問(見つからない場合)の場合は、すぐに削除させていただきます。これは私のために働くようだ
おかげ
ありがとう、それはきちんとしていた、と私は愚か者は、 – PKumar