将fancyRpartPlot另存为pdf
我试图在下面的代码之后找到一种方法,将显示在fancyRpartPlot之后的图像输出保存为pdf,以绘制回归树。 有人知道我怎么做吗?我在网上找不到任何答案将fancyRpartPlot另存为pdf,r,pdf,R,Pdf,我试图在下面的代码之后找到一种方法,将显示在fancyRpartPlot之后的图像输出保存为pdf,以绘制回归树。 有人知道我怎么做吗?我在网上找不到任何答案 regression_tree <- data.frame(stock_mag = as.numeric(resData$stock_mag), LT = as.numeric(resData$Lead_Time), dmIn = as.numeric(
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#
regression\u tree这应该与使用pdf()的所有其他绘图一样有效。
:
库(嘎嘎声)
图书馆(rpart)
种子(42)
ds欢迎来到SO!请习惯于提供重复的示例,如此处所述:我尝试了您所说的,但当我尝试在windows中打开它时(我在windows环境中使用R studio),它找不到打开它的程序。也许我必须指定一些参数什么的?你是说没有与pdf扩展相关联的程序?这将是一个windows问题。问题解决了,adobe没有正确安装在windows中。我修复了它,现在它可以工作了。谢谢
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