将标题添加到自动绘图

Question

我使用 autoplot 通过下面的代码创建了简单的 lm 图。但是当我使用autoplotly制作互动图时，autoplot生成的标题消失了，即使我使用ggplot2::ggtitle，标题也没有出现。我怎样才能解决这个问题？可以从 here.

下载 CSV

# Read file
df = read,csv(Mean_SWE.csv)
# Run the model
Model = lm(formula = SWE ~ Mean.Z + Intensity.mean, data = df)
# Plot
lm.plot.rsd = autoplot(Model, label.size = 3, which = 1) +
  theme_bw()
autoplotly(lm.plot.rsd) +
  ggplot2::ggtitle("Residuals vs Fitted")

Answer 1

autoplot 创建 ggmultiplot object (lm.plot.rsd)，为了正确调用 plotly 函数，它在 autoplotly 中删除了所有标题。解决办法是把ggplotobject传给autoplotly。所以，从 ggmultiplot 中取出你需要的 ggplot，像这样 lm.plot.rsd@plots[[1]]

试试这个：

df = read.csv("Mean_SWE.csv")
# Run the model
Model = lm(formula = SWE ~ Mean.Z + Intensity.mean, data = df)
# Plot
lm.plot.rsd = autoplot(Model, label.size = 3, which = 1) +
  theme_bw()
autoplotly(lm.plot.rsd@plots[[1]]) +
  ggplot2::ggtitle("Residuals vs Fitted")

将标题添加到自动绘图

Adding title to autoplotly

r

ggplot2

ggfortify