r - 如何在 R 中为线性回归叠加 90% 置信带（逐点）

Question

我正在使用http://archive.ics.uci.edu/ml/datasets/Forest+Fires找到的森林火灾数据集。我为温度和燃烧面积之间的关系创建了一个散点图。这是我的图表。黑白关系 Temp 和 Area。我知道 90% 的置信区间是 0.2804346 到 1.864821，因为我做了 confint，但我不知道如何在我的图表上叠加这个 90% 的置信区间。任何帮助，将不胜感激！

mod1 = lm(area ~ temp, data = forestfires)
confint(mod1, 'temp', level=0.90)

ggplot(forestfires)+
  aes(x=temp, y=area)+
  geom_point()+
  geom_smooth(method = "lm")+
  scale_y_log10()+
  ggtitle("Relationship of Area Burned and Temperature")+
  xlab("Temperature")+
  ylab("Area")+
  theme(plot.title = element_text(hjust = 0.5))

标签： rconfidence-interval