r - 95% 予測区間の ggvis 散布図

Question

library(ggvis)
mtcars %>% 
  ggvis(~wt, ~mpg) %>%
  layer_points() %>%
  layer_model_predictions(model = "lm", se = TRUE)

上記は、フィットした回帰直線と の 95% 信頼限界を持つ散布図を作成します。

質問: 近似回帰直線と 95%の予測限界を使用して散布図を描く方法を教えてください。

Answer 1

ここにアイデアがあります。ただし、目的のものを正確に取得するには、おそらくさらに多くの作業が必要です。

mtcars.pi = data.frame(mtcars, predict(lm(mpg~wt,data=mtcars), interval="prediction"))
mtcars.pi %>% 
ggvis(~wt, ~mpg) %>%
layer_points() %>%
layer_ribbons(y=~lwr, y2=~upr, opacity:=.5) %>%
layer_model_predictions(model = "lm", se = TRUE)