Экспорт нескольких графиков glm как PNG?

SO,

Я пытаюсь экспортировать графики моей линейной модели. Когда я делаю это в формате 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