Question

我在执行以下代码后尝试导出图形：

data=read.csv("[data.csv")
library(rpart)
data.rpart=rpart(Sp~X1+X2+X3+X4, data=data)
plotcp(data.rpart)
printcp(data.rpart)
data.rpart1=prune(data.rpart, cp=0.047)
myplot=plot(data.rpart1,uniform=TRUE)
text(data.rpart1, use.n=TRUE, cex=0.6)
data.rpart

dev.copy(pdf,'my plot.pdf')
dev.off()

> dev.copy(pdf,'my plot.pdf')
pdf   #warning
  3 
> dev.off()
windows # warning
      2

我的工作目录中没有得到任何pdf。请指教。 **我在这里使用了虹膜数据。

Answer 1

set.seed(1)
x = rnorm(1000)
pdf("myGraph")
hist(x)
dev.off()

将myGraph.pdf保存到您的工作目录

Answer 2

这对我有用。（请注意dev.copy2pdf的使用以及file=的明确使用。）

library(ggplot2)
data(iris)
data=iris
library(rpart)
data.rpart=rpart(Sepal.Width ~., data=data)
data.rpart1=prune(data.rpart, cp=0.047)
myplot=plot(data.rpart1,uniform=TRUE)
text(data.rpart1, use.n=TRUE, cex=0.6)
dev.copy2pdf(file="my-plot.pdf")

以pdf格式从R导出图形

2 个答案: