在回歸線 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'