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

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

Приведенное выше дает точечную диаграмму с подобранной линией регрессии и доверительным интервалом 95% для ф.

введите здесь описание изображения

Вопрос. Как построить точечную диаграмму с подобранной линией регрессии и пределами предсказания на уровне 95 % на f?


r plot prediction ggvis
person dwstu    schedule 14.08.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вот идея. Вероятно, требуется больше работы, чтобы получить именно то, что вам нужно.

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)
person Adam Black    schedule 23.03.2016