具有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)