如何解决为自动绘图添加标题
我使用 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")
解决方法
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")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。