在回归线 R 中添加 +- 2 SE

Question

我想知道是否可以在 R 中绘制一条回归线，包括 +- 2* 标准误差。 例如，使用iris ：

library(ggplot2)
ggplot(iris, aes(x = Petal.Length, y = Sepal.Width))+geom_smooth(method=lm, color="black")+ theme_bw()

输出是：

如何（如果可能）将灰色区域扩展为标准误差的两倍？

Answer 1

实现所需结果的一种选择是通过stat_smooth手动添加置信stat_smooth并使用after_stat ：

library(ggplot2)
ggplot(iris, aes(x = Petal.Length, y = Sepal.Width)) +
  geom_smooth(method = lm, color = "black", se = FALSE) +
  stat_smooth(aes(ymin = after_stat(y - 2 * se), ymax = after_stat(y + 2 * se)), geom = "ribbon", method = lm, fill = "grey60", alpha = .4) +
  theme_bw()
#> `geom_smooth()` using formula 'y ~ x'
#> `geom_smooth()` using formula 'y ~ x'