Добавление общего заголовка к autoplot.lm

Question

Я строю графики диагностики для регрессионной модели, используя автоплот. Я хотел бы добавить общий заголовок для графика.

Как пример:

library(ggfortify)
autoplot(lm(Petal.Width ~ Petal.Length, data = iris), label.size = 3)

Я хотел бы разместить «Заголовок» в верхней части без изменения какого-либо подзаговора. Заранее спасибо.

РЕДАКТИРОВАТЬ: я уже пытался grid.arrange () получить эту ошибку: Ошибка в $ <- (<em> tmp , wrapvp, value = vp): нет метода для назначения подмножеств этого класса S4.

Answer 1

Вы можете напрямую ссылаться на список объектов ggplot в пределах объекта ggmultiplot, возвращаемого ggfortify 'autoplot.lm:

p <- autoplot(lm(Petal.Width ~ Petal.Length, data = iris), label.size = 3)

gridExtra::grid.arrange(grobs = p@plots, top = "some title")

Answer 2

Как насчет использования пакетов gridExtra & grid?

library(gridExtra)
library(grid)
title1=textGrob("Title", gp=gpar(fontface="bold"))
grid.arrange(plot1, plot2, plot3, plot4, 
             top=title1)

Я бы написал такие коды.