将通用标题添加到 autoplot.lm

Question

我正在使用自动绘图为回归模型绘制诊断图。我想为图表添加一个通用的单一标题。

例如：

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

我想在顶部放置一个 "Title" 而不修改任何子图。提前致谢。

编辑：我已经尝试 grid.arrange() 得到这个错误： $<-(tmp, wrapvp, value = vp) 错误：没有分配方法此 S4 的子集 class.

Answer 1

使用 gridExtra & grid 包怎么样？

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

我会写这样的代码。

Answer 2

您可以直接引用 ggfortify 的 autoplot.lm 返回的 ggmultiplot 对象中的 ggplot 对象列表：

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

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

将通用标题添加到 autoplot.lm

Adding a general title to autoplot.lm

r

ggplot2

lm

ggfortify