如何在散点图（R中的ggplot）中添加置信区间

我想展示在分类变量的每一个层次上因变量的90%RI区间，以及这个图上的整个人口。vs=0时disp变量的90%RI为200-250，vs=1时disp变量的RI为220-250，整个数据集的disp CI为300-400。如何将这些间隔添加到散点图中

ggplot(mtcars, aes(mpg, disp)) + 
      geom_point(aes(colour=factor(vs), 
      fill = factor(vs)), shape=21, size = 4) + 
  scale_fill_manual(values=c("blue", "pink")) + 
  scale_colour_manual(values=c("black", "black"))

---

也许是这样的：

ggplot(mtcars, aes(mpg, disp, colour = factor(vs), fill = factor(vs))) + 
  geom_point(shape = 21, size = 4, col = "black") + 
  stat_summary(aes(vs+8, disp, col = factor(vs)), 
               fun.data = function(x) mean_cl_normal(x, conf.int = 0.9)) +
  stat_summary(aes(7, disp, group = 1), 
               fun.data = function(x) mean_cl_normal(x, conf.int = 0.9))

如果有间隔，可以使用：

cis <- data.frame(vs = c(0, 1, 'all'), lwr = c(200, 220, 300), upr = c(250, 250, 400))
ggplot(mtcars, aes(colour = factor(vs), fill = factor(vs))) + 
  geom_point(aes(mpg, disp), shape = 21, size = 4, col = "black") +
  geom_linerange(aes(x = c(8:10), ymin = lwr, ymax = upr), cis)

---

非常感谢您的帮助。但这些CI是特定的参考区间，我们以不同的方式计算它们。所以我不能用mean_cl_normal来计算它们。我只想在图上精确显示计算出的参考间隔。有什么建议吗？谢谢你的帮助。你能看一下这个问题吗toohttps://stackoverflow.com/questions/47679997/how-to-add-supplement-type-type-into-the-ggplot