r - 将标题添加到自动绘图

Question

我曾经使用下面的代码autoplot创建简单lm的绘图。但是当我autoplotly用来制作交互式情节时，由 生成的标题消失了autoplot，即使我使用ggplot2::ggtitle，标题仍然没有出现。我怎样才能解决这个问题？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对象 ( lm.plot.rsd)，该对象在 autoplotly 中被剥离所有标题，以便正确调用 plotly 函数。解决方案是将ggplot对象传递给autoplotly. 所以，把ggplot你需要的东西拿出来ggmultiplot，像这样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")