ggvis график рассеяния с 95% интервала предсказания

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)