使用grid.arrange添加标题，用于使用gridExtra:：grid.arrange制作的多个绘图

我必须使用gridExtra:：grid.Arranged绘制多个绘图，因为我正在使用该软件包为绘图创建拟合。 我必须使用grid.arrange为绘图创建标题。 现在我想把两者结合起来，但不知道如何结合。所以：我想画几个人物，除了彼此，给他们都有一个不同的标题

我使用euler1和euler2作为拟合，在euler图中表示我的数据。 对于绘制两个绘图（除了彼此之外），此代码适用于我：

gridExtra::grid.arrange(plot(euler1),plot(euler2))

为单个绘图提供标题，此代码适用于我：

plot1 <- plot(euler1)
grid.arrange(grobs = list(plot1), top = "Title 1")

---

plot1通常您会将标题添加到绘图本身，如中所示

p1 = ggplot() + ggtitle('plot 1')
p2 = ggplot() + ggtitle('plot 2')

grid.arrange(grobs = list(p1, p2), top = "Global Title", ncol=2)

但是如果您更喜欢使用grid.arrange的
top
参数作为标题，您可以嵌套它们

p = ggplot()
grid.arrange(arrangeGrob(p, top = 'title 1'), arrangeGrob(p, top = 'title 2'), top = "Global Title", ncol=2)

我找到了方法，因为在
plot
中使用
main
对于eulerr包是固定的。现在我可以使用：

gridExtra::grid.arrange(plot(euler1, main = 'title1'),
plot(euler2, main = 'title2'))

谢谢大家的反馈。
谢谢您的回复。不幸的是，我正在使用的包（eulerr）依赖于它自己的自定义绘图实现，ggplot不是一个选项，因此我必须使用我原始问题“plot”和“grid.arrange”中所述的语法以及“top”和“gridExtra”。
gridExtra::grid.arrange(plot(euler1, main = 'title1'),
plot(euler2, main = 'title2'))