如何分离图形，然后在一个图形窗口上绘制它们？

Question

我有三个时间序列md1，md2，md3，三个ARIMA模型f1，f2，f3。我想在一个图形窗口中绘制ARIMA模型的AR-МA根。我试过了：

library(forecast)

md1 <- runif(100, 0, 1)
md2 <- runif(100, 0, 1)
md3 <- runif(100, 0, 1)

f1<-arima(md1,order=c(1,1,0))
f2<-arima(md2,order=c(1,1,0))
f3<-arima(md3,order=c(2,1,2))

par(mfrow = c(1,3))
#  AR- и МA-roots of ARIMA models
plot(f1) # one graph
plot(f2) # one graph
plot(f3) # two graphs

结果，我只看到最后一个情节，即plot(f3)。当然，我可以添加windows()命令

plot(f2); windows()

为plot(f3)创建一个新的图形窗口。另外，我试图更改par()功能的选项，喜欢

par(mfrow = c(2,2))

并尝试创建新对象

 p3 <- plot(f3)

但未达到预期的结果。

问题即可。如何分隔plot(f3)命令生成的两个图？

预期结果：

Answer 1

我在here的问题上找到了答案。这是作者未包含在包forecast中的代码。