在for循环中打印到PDF

Question

我想循环一个情节并将情节的结果放在一个PDF.

以下代码用于执行此操作:

这样做是循环3次,并从虹膜数据集绘制3个不同的图.然后它应该将其保存到C:/驱动器.该PDF文件被创建,但已损坏.

for(i in 1:3){
  pdf(paste("c:/", i, ".pdf", sep=""))
  plot(cbind(iris[1], iris[i]))
  dev.off()
}

Answer 1

要在设备上绘制点阵图,需要打印通过调用其中一个点阵图形函数生成的对象.通常,在交互式使用中,如果未分配,R会自动打印对象.然而,在循环中,自动打印不起作用,因此必须安排要打印的对象,通常是将其包装print().

这是一个例子(请原谅我滥用公式表示法;-):

require(lattice)
for(i in 1:3) {
    pdf(paste("plot", i, ".pdf", sep = ""))
    print(xyplot(iris[,1] ~ iris[,i], data = iris))
    dev.off()
}

这会在pdf设备上生成三个图.