如何编写一个按顺序显示绘图的R函数？

Question

我想要类似'plot.lm'的功能。

y <- rnorm(100, 0, 1)
x <- rnorm(100, 0, 1.5)

mod <- lm(y ~ x)

plot(mod)

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

我想创建几个图，然后按顺序显示它们 - 提示用户点击以查看所有图。

Answer 1

在致电par(ask=TRUE)之前设置plot()。您可能希望在第一个绘图之后设置它，因此用户不必等待那个。为了好，请在最后一个情节之后设置par(ask=FALSE)。

Answer 2

为此我找到了一个更简单的解决方案，那就是plot.lm（）在函数开始处的作用：

oask <- devAskNewPage(TRUE);
on.exit(devAskNewPage(oask));