R 95%预测区间的ggvis散点图

上面给出了一个带有拟合回归线和95%置信限的散点图

---

问题：如何用拟合回归线和95%预测限值绘制散点图？

以下是一个想法。不过，可能需要做更多的工作才能得到你想要的东西

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

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)