用R语言以pdf格式保存文件[重复]

Question

我想将这些图表的输出分成两个单独的 pdf 文件。
当我运行程序时，它会生成文件，但是当我打开文件时，它会给我以下消息。
“打开此文档时出错。无法打开该文档，因为它没有页面”
你能告诉我，我做错了什么吗？
代码如下

plot_graph <- function(data_frame)  
{  
require(lattice)
pdf("myplot1.pdf")
xyplot(V21 ~ V4|V1, data = data_frame)
pdf(file = "myplot2.pdf")
xyplot(V22 ~ V4|V1, data = data_frame)
dev.off()
}

Answer 1

您需要为您打开的每个设备调用 dev.off()。试试

plot_graph <- function(data_frame) {  
  require(lattice)
  pdf("myplot1.pdf")
  print(xyplot(mpg ~ hp|gear, data = data_frame))
  dev.off()
  pdf("myplot2.pdf")
  print(xyplot(disp ~ hp| gear, data = data_frame))
  dev.off()
}
plot_graph(mtcars)