добавить заголовок с помощью grid.arrange для нескольких графиков, созданных с помощью gridExtra :: grid.arrange

Question

Мне нужно использовать gridExtra :: grid.arrange для построения нескольких графиков, помимо друг друга, из-за пакета, который я использую для создания соответствия графику. Я должен создать заголовок для графика, используя grid.arrange. Сейчас я хочу объединить два, но не могу понять, как. Итак: я хочу нарисовать несколько фигур помимо друг друга и дать им всем другое название.

У меня есть euler1 и euler2, которые соответствуют моим данным на диаграмме Эйлера. для построения 2-х участков помимо друг друга у меня работает этот код:

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

для присвоения заголовка одному графику, этот код работает для меня:

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

Теперь я хотел бы объединить два кода. Как я могу это сделать?

Я пытаюсь, например (но не работает):

plot1 <- plot(euler1)
plot2 <- plot(euler2)
gridExtra::grid.arrange(plot1, plot2, grobs = list(plot1, plot2), top = list("Title 1","Title 2"))

С уважением, Джудит

Answer 1

Я понял, как это сделать, поскольку использование main в plot было исправлено для пакета eulerr. Теперь я могу использовать:

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

Спасибо всем за отзыв.

Answer 2

Обычно вы добавляете заголовки к сюжету сами, как в

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

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

, но если вы предпочитаете использовать аргумент top grid.arrange для заголовков, вы можете вложить их,

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