将grid.draw的结果保存到ggplot对象

Question

我需要帮助将grid.draw的结果保存到ggplot图形对象。

我可以使用以下

保存使用grid.draw修改ggplot的结果

savepdf("H:\\plot name", width = 36, height = 28)
gt <- ggplotGrob(plot1)
gt$layout$clip[gt$layout$name=="panel"] <- "off"
grid.draw(gt)

dev.off()

# plot1 is the ggplot object that was amended as follows

 plot1 = plot1 + annotation_custom(grob = textGrob("my text", gp=gpar(fontsize=15)),  
                          xmin = this.much, 
                          xmax = this.much, 
                          ymin = -that.much, 
                          ymax = -that.much ) 

这使我能够将文本放在x轴标签下面。

我有一系列这些图表，我想在图形网格中保存 但是不想诉诸par(mfrow())，因为新的尺寸会扭曲我需要的最终图形。我想使用multiplot(plot1, plot2,...., plotx)，因此grid.draw引起的更改需要嵌入到ggplot对象中。

此处提供Multiplot http://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_(ggplot2)/