Image jpeg（粘贴功能）中出错：打开的设备太多

我试图从一个r脚本输出大约250个绘图，我收到了一个“太多开放设备”错误。是否有一些设置可以调整以避免此问题

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

for(x in 250) { 

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

} 

用于（x/250）{
绘图添加dev.off（）有效

用于（x/250）{
阴谋
for(x in 250) { 

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