保存一個fancyRpartPlot爲pdf

Question

我試圖通過下面的代碼找到一種方法來保存爲pdf後在fancyRpartPlot後面出現的圖像輸出來繪製迴歸樹。 任何人都知道我該怎麼做？我無法通過網絡找到任何答案。

regression_tree <- data.frame(stock_mag = as.numeric(resData$stock_mag), 
        LT = as.numeric(resData$Lead_Time), 
        dmIn = as.numeric(resData$Intermittency), 
        dmCv = as.numeric(resData$CoV)) 

fit<-rpart(stock_mag~dmCv+dmIn+LT,data=regression_tree, method="anova",   control=rpart.control(minsplit=20)) 
x11() 

fancyRpartPlot(fit, main="test") # Will plot the tree# 

謝謝!!

Answer 1

這應該工作一樣使用pdf()所有其他情節：

library(rattle) 
library(rpart) 
set.seed(42) 
ds  <- weather 
target <- "RainTomorrow" 
risk <- "RISK_MM" 
ignore <- c("Date", "Location", risk) 
vars <- setdiff(names(ds), ignore) 
nobs <- nrow(ds) 
form <- formula(paste(target, "~ .")) 
train <- sample(nobs, 0.7*nobs) 
test <- setdiff(seq_len(nobs), train) 
actual <- ds[test, target] 
risks <- ds[test, risk] 
model <- rpart(form, data=ds[train, vars]) 

pdf(tf <- tempfile(fileext = ".pdf")) 
fancyRpartPlot(model) 
dev.off() 
cat(tf) # filename