在R中使用png（）和dev.off（）打印圖（lm（y〜x））

Question

我想打印生成R生成的迴歸診斷圖表， 。線性模型有四個，他們中斷與

Hit <Return> to see next plot: 
Hit <Return> to see next plot: 
Hit <Return> to see next plot: 
Hit <Return> to see next plot: 

所以，下面的代碼，它通常不工作的執行，也沒有：

png('Filename.png', width=mywidth, height=myheight, units='in', res=300) 
plot(lm(y~x) 
dev.off() 

在

我仍然不得不打每次進入，並且不清楚這將會有適當的子圖，或者將每個圖命名爲不同的文件。

如何捕獲這些直接打印到磁盤的診斷圖像？如果它很重要，我在Linux機器上。

Answer 1

一對夫婦的選項，使用下面的虛擬數據

set.seed(42) 
x <- rnorm(100) 
y <- 3.4 + (0.5 * x) + rnorm(100) 

使用ask參數並將其設置爲FALSE：

png('Filename%03d.png', width=6, height=6, units='in', res=300) 
plot(lm(y~x), ask = FALSE) 
dev.off() 

請注意，我們必須使用%03d增加號碼到「文件名」，所以我們有"Filename001.png"等四個圖像。請參閱?plot.lm以瞭解文件名中的註釋的詳細信息ask和?png。

可替換地，設置繪圖儀用4米板和繪製模型：

png("Filename_all.png", width=6, height=6, units='in', res=300) 
layout(matrix(1:4, ncol = 2)) 
plot(lm(y~x)) 
layout(1) 
dev.off()