How to draw Beta distribution curves in R?

Question

I need to create this graph in R

but I don't like to look like in here.

Answer 1

How about this:

c2 <- curve(dbeta(x, 3,1))
plot(curve(dbeta(x, 91, 11)), col="red", type="l", xlab="x", ylab="Beta Density")
lines(c2$x, c2$y, col="blue")
legend("topleft", 
       c("Beta(91,11)", "Beta(3,1)"), 
       inset=.01, 
       lty=c(1,1), 
       col=c("red", "blue"))