太多的开放设备r

Question

我正在尝试将多个图形写入一个olocation,而是编写一堆空白图片:

我的代码看起来像:

titleplot<-NULL
for(i in 1:99){
  titleplot<-colnames(data[i])
  mypath <- file.path("C:","Users","user.ME","Desktop","graph outputs", paste("myplot_", titleplot, ".jpg", sep = ""))
  plot(data[,i],type="l", main =titleplot)
  jpeg(file=mypath)
  dev.off()
}

有谁知道为什么会发生这种情况或我如何解决这个问题？

Answer 1

你应该jpeg在调用命令之前输入plot命令.

jpeg(file=mypath)
plot(...)
dev.off()

Answer 2

结合 Mohammed Shaker 和 asb 的答案给出了这个非常简单的代码：

for (i in dev.list()[1]:dev.list()[length(dev.list())]) {
   dev.off()
}

这将删除所有打开的图形设备：

> dev.list()
NULL