r - 将多个 glm 图导出为 PNG？

Question

所以，

我正在尝试导出我的线性模型的图。当我将其作为 PDF 进行时，PDF 有四页和四个不同的图表。当我导出为 PNG 时，我只得到第一个图表。如何导出以便将所有四个图形作为单独的 PNG 文件获取？

对 PDF 有效的方法:

lrfitX11SUMS <- glm(X11SUMS ~ POLITA + CIRCULATION + COMPAPER + TrafficRankUS, data=NewspTest)

    summary(lrfitOTONE)
    pdf("/Users/william/Desktop/output/lmfitOTONE1.pdf")
    plot(lrfitOTONE)
    dev.off()

什么不适用于 PNG(并且花了两个小时在互联网上和情节文档中挖掘无济于事):

lrfitX11SUMS <- glm(X11SUMS ~ POLITA + CIRCULATION + COMPAPER + TrafficRankUS, data=NewspTest)

summary(lrfitOTONE)
png("/Users/william/Desktop/output/lmfitOTONE1.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE2.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE3.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE4.png", width=720, height=720, pointsize=16)
plot(lrfitOTONE)
dev.off()

如何获取我的图像？

谢谢，

-Wm

Answer 1

PDF 允许多页文档。 PNG 图像从根本上与这个想法不兼容。阅读 ?png并感谢查看 filename 的必要性参数会引导你到 ?postscript详情。

你想要这样的东西:

png("/Users/william/Desktop/output/lmfitOTONE%1d.png", width=720, 
    height=720, pointsize=16)
plot(lrfitOTONE)
dev.off()

%1d在文件名中是一个通配符，它​​扩展为一个 1 位数值，这样您就可以得到四个具有您想要的名称的数字。您调用 png() 的 4 次电话设置了四个独立的设备，只有后者被使用并随后关闭，其他三个保持打开状态。