为什么这段代码只绘制for-loop的最后一个图？

Question

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

我的代码：

#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的最后一个情节，但我想要所有这些。