jpeg（a_paste_function）出错：打开设备太多

Question

我试图从r脚本输出大约250个图，我收到“太多打开的设备”错误。我可以调整一些设置来避免这个问题吗？

以下是我如何创建图表的示例：

for(x in 250) { 

plots <- ggplot(data=dat, aes(x,y,lab=labels))
jpeg(a_paste_function)
print(plots)

} 

我注意到的一件事是，当我write.table时，文件立即就绪，而我总是必须关闭R才能将jpeg“打印”。也许那是真正的问题，我倾倒这些情节的方法呢？

Answer 1

添加dev.off（）有效。

for(x in 250) { 

plots <- ggplot(data=dat, aes(x,y,lab=labels))
jpeg(a_paste_function)
print(plots)
dev.off()
}