如何在不调用ggplot()的情况下将ggproto对象添加在一起并保存以备以后使用？

library(ggplot2)
library(gridExtra)

# 创建ggproto对象1
my_ggproto1 <- ggproto("my_ggproto",
                       ggplot2::ggproto(),
                       draw_panel = function(self, data, panel_params, coord, facets) {
                         # 自定义绘图逻辑
                         # ...
                       })

# 创建ggproto对象2
my_ggproto2 <- ggproto("my_ggproto",
                       ggplot2::ggproto(),
                       draw_panel = function(self, data, panel_params, coord, facets) {
                         # 自定义绘图逻辑
                         # ...
                       })

# 将ggproto对象转换为list
plot1 <- ggplot_build(my_ggproto1)
plot2 <- ggplot_build(my_ggproto2)

# 将list转换为gtable对象
gtable1 <- ggplot_gtable(plot1)
gtable2 <- ggplot_gtable(plot2)

# 在gtable对象中添加ggproto对象
gtable1 <- gtable_add_grob(gtable1, grobs(plot2), t = 1, l = 1, b = 3, r = 3)

# 将gtable对象保存为图像文件
ggsave("my_plot.png", gtable1)