如何分離圖形，然后將其繪制在一個圖形窗口上？

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

我在這里找到了我的問題的答案。 這是作者未包含在包裝forecast的代碼。