I have almost got this to work but cannot find the right way to place the end of the arrow as it points to the bottom of the confidence interval ribbon instead of the line itself. Code so far: library(ggplot2)library(grid)p<-ggplot(mtcars,aes(x=disp,y=mpg))+geom_point()+geom...