Çoklu glm çizimlerini PNG olarak dışa aktarma?

Question

SO,

Doğrusal modelimin grafiklerini dışa aktarmaya çalışıyorum. PDF olarak yaptığımda, PDF'de dört sayfa ve dört farklı grafik bulunur. Bir PNG olarak dışa aktardığımda, sadece ilk grafiği alırım. Dört grafiğin tümünü ayrı PNG dosyaları olarak almam için nasıl dışa aktarırım? PDF ile çalıştı ne

:

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

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

PNG ile İŞE (ve boşuna internette ve arsa belgelerinde etrafında kazma iki saat geçirdim) VERMEDİ Ne:

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() 

Resimlerimi nasıl alabilirim?

sayesinde bu gibi

-WM

Answer 1

bir şey:

setwd("/Users/william/Desktop/output/") 
tmpf <- function(i) { 
    png(paste("lmfitOTONE",i,".png",sep=""), width=720, height=720, pointsize=16) 
} 
wplot <- c(1,2,3,5) ## see ?plot.lm for definition of 'which' 
for (i in seq_along(wplot)) { 
    tmpf(i); plot(lrfitOTONE, which=wplot[i]); dev.off() 
} 

anahtar glm nesneye uygulanan plot tarafından kullanılan bir yöntemdir plot.lm (glm olduğu fark edilmektedir lm'un bir alt sınıfı ve kendi özel çizim yöntemine sahip değildir) which bağımsız değişkenine dayanan tanılama grafiklerini ve varsayılan değeri görüntüler. which, yukarıdaki wplot ile aynıdır. Temel olarak: bireysel alt bölümlerin nasıl oluşturulacağını öğren.

Answer 2

PDF, çok sayfalı belgelere izin verir. Bir PNG görüntüsü, bu fikirle temel olarak uyumsuzdur. ?png'un okunması ve filename numaralı argümana bakma ihtiyacını takdir etmek, detaylar için sizi ?postscript'a yönlendirecektir.

Sen gibi bir şey istiyorum: Dosya adına %1d istediğin adlarla dört rakamları elde öyle ki 1 basamaklı sayısal değere genişler bir joker olduğunu

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

. png() numarasına yapılan 4 çağrınız sadece dört tanesi daha sonra kullanılan ve daha sonra kapatılan dört ayrı cihaz kurar, diğer üçü açık kalır. "Plot.lm" yöntemiyle ilgili bilgi için