R - tidy augment confidence interval

Question

broomパッケージを使用して信頼区間を計算する方法は不思議です。私がやろうとしています何

は、シンプルで標準です：

set.seed(1) 
x <- runif(50) 
y <- 2.5 + (3 * x) + rnorm(50, mean = 2.5, sd = 2) 
dat <- data.frame(x = x, y = y) 
mod <- lm(y ~ x, data = dat) 

visregを使用して私は非常に簡単CIと回帰モデルをプロットすることができます

library(visreg) 
visreg(mod, 'x', overlay=TRUE) 

私は面白いですよbroomとggplot2を使ってこれを再現すると、これまでのところ私は達成していますEDこれは：

library(broom) 

dt = lm(y ~ x, data = dat) %>% augment(conf.int = TRUE) 
ggplot(data = dt, aes(x, y, colour = y)) + 
    geom_point() + geom_line(data = dt, aes(x, .fitted, colour = .fitted)) 

augment funcitonはconf.intを計算しません。どのように私はいくつかのsmooth信頼性の反転を追加することができますか？ broom出力を使用して

geom_smooth(data=dt, aes(x, y, ymin=lcl, ymax=ucl), size = 1.5, 
     colour = "red", se = TRUE, stat = "smooth") 

Answer 1

、あなたはこのような何か行うことができます：あなたはgeom_ribbonに色の美学を適用することはできませんので、私はgeom_point()にcolour=yを移動

ggplot(data = dt, aes(x, y)) + 
    geom_ribbon(aes(ymin=.fitted-1.96*.se.fit, ymax=.fitted+1.96*.se.fit), alpha=0.2) + 
    geom_point(aes(colour = y)) + 
    geom_line(aes(x, .fitted, colour = .fitted)) + 
    theme_bw() 

を。

Answer 2

だけ（元のデータセットのDATで）これを行う：あなたがあなたの元に `geom_smooth（方法= "LM"）を`使用しないのはなぜ

ggplot(data = dat, aes(x, y, colour = y)) + 
    geom_point(size=2) + geom_smooth(method='lm', se = TRUE) + theme_bw()