Нарисуйте область под кривой, ggplot2
У меня есть следующая задача: нарисовать кривую плотности из распределения t и областей затенения, ограниченных некоторыми квантилями. Я хочу сделать это в ggplot2.
Кривая нарисована с использованием следующего кода:
ggplot(data = data.frame(x = c(-5, 5)), aes(x)) +
stat_function(fun = dt, args = list(df = 70))+
geom_segment(aes(x=qt(.95,70),xend=qt(.95,70),y=0,yend=dt(qt(.95,70),70)))
ylab("f(t)")+xlab("t")
Тогда я хочу заштриховать область сегмента чисел больше, чем qt(.95,70) и ниже плотности
Я надеюсь, что есть способ решить эту проблему, не имитируя данные из плотности, чтобы нарисовать их и заштриховать желаемую область, как показано здесь. Затененная область под кривой плотности в GGPLOT2, поскольку плотность создается не какими-либо данными, а уравнением,