как построить эту фигуру в т

Question

Я пытаюсь построить эту фигуру в r, как я могу добавить линии и цвета?

x=seq(0,1,0.01)
z1=dbeta(x,1,1)
y=1
n=3
z2=dbeta(x,1+y,1+n-y)
m1=data.frame(cbind(z2,z1))
matplot(x,m1,type="l",lwd=2,cex.main=1,col=c("black","black"))

Answer 1

Вы можете добавить область под кривой плотности с добавлением полигонов. Границы зависят от x в ваших seq (желаемый интервал в х), а также от m1$z2 значений, когда x находится между выбранным интервалом x.

polygon(c(.3, x[x >= .3 & x <= .4], .4), 
        c(0, m1$z2[x >= .3 & x <= .4], 0), col="red")
polygon(c(.2, x[x >= .2 & x <= .3], .3), 
        c(0, m1$z2[x >= .2 & x <= .3], 0), col="light blue")