r语言 - 保存一个花哨的rpartplot为pdf

Question

我试图在以下代码之后找到一种方法来保存为pdf图像输出，该图像输出出现在fanyrpartplot之后，以绘制回归树。有人知道怎么做吗?我在网上找不到任何答案。

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