为什么这段代码只绘制了for循环的最后一个图？

Question

在Rstudio中，我想绘制7个图，每个图一个时间点。 我确实有2个数据帧，其中所有7个时间点都有一个轴的de值。

我的代码：

#3.4.4 plotting ma plots
FIG2 <- par(mfrow = c(4,2))
for (i in 1:7)
    main = paste('MA-plot for timepoint ',i, sep ='')
    plot(averageratio[[paste('A',i,sep='')]],
         intensityratio[[paste('M',i,sep='')]], main = main, 
         xlab='average log intensity', ylab='log intensity ratio')
    abline(0, 0, lwd=2.5, col='blue', lty=2)

现在，这仅向我显示了时间点7的最后一个情节，但是我想要所有这些。