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)

以R语言保存pdf格式的文件

1 个答案: