如何在多个页面上的同一图上安排基础图和grid.tables

Question

我正在尝试安排基础和网格图。 看着this post我以为我已经拥有了它，但看起来连续几次调用相同的代码就是打破它。

这是一个可重现的例子

library(grid)                                                                                       
library(gridBase)                                                                                   
library(gridExtra)                                                                                  

pdf('test.pdf')                                                                                     
for(i in 1:11){                                                                                     
    layout(matrix(c(1,3, 2,3, 4,3), nrow = 3, ncol = 2, byrow = TRUE))                              
    # First base plot                                                                               
    plot(1:10)                                                                                      
    # second base plot                                                                              
    plot.new()                                                                                      
    # Grid regions of current base plot (ie from frame)                                             
    vps <- baseViewports()                                                                          
    pushViewport(vps$inner, vps$figure, vps$plot)                                                   
    # Table grob                                                                                    
    grob <-  tableGrob(iris[1:2,1:2])                                                               
    grid.draw(grob)                                                                                 
    popViewport(3)                                                                                  
    # third base plot                                                                               
    plot(1:10)                                                                                      
    # fourth                                                                                        
    plot.new()                                                                                      
    vps <- baseViewports()                                                                          
    pushViewport(vps$inner, vps$figure, vps$plot)                                                   
    grid.draw(grob)                                                                                 
}                                                                                                   
graphics.off()   

我希望这些情节由11个等效页面组成，但网格遍布整个地方：

第1页没问题： page2和＆gt; 2不是： 第3页：

如何获得正确的10页文档？ 我碰巧用几个不同的数据调用一个绘图例程，所以我期望在调用之间得到一致的东西