向autoplot.lm添加一个通用标题

Question

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

例如：

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

​

我想在顶部放置一个“标题”，而不修改任何子图。提前谢谢。

编辑:我已经尝试过grid.arrange()获取这个错误：$-(tmp，wrapvp，value = vp)中的错误:没有分配这个S4类子集的方法。

Answer 1

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

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)

我会写这样的代码。