Grid.draw to PDF

Question

我有一个创建几个GGPlot图表的循环，然后使用grid.draw删除一些剪辑，这样我的一些数据标签就可以正确显示。

但是，当需要将所有这些导出为PDF时，我只能获得最终图表。

为了给你一个感觉，这是我的代码：

require(scales)
require(reshape2)
require(ggplot2)
require(grid)


pdf("test.pdf", paper="USr", height=8, width=10)  
for (i in meps_seq) { 


  list=levels(df.long$locale)[eval(parse(text=i))]

  p=ggplot(....long command...)

  gt <- ggplot_gtable(ggplot_build(p)) 

  gt$layout$clip[gt$layout$name == "panel"] <- "off" 

  grid.draw(gt)
      }
dev.off()

不幸的是，当我应该有5个左右时，我只能在PDF上找到一页。我做错了什么？