Как я могу получить такую гистограмму?

x <- runif(100,0,10)
h <- hist(x)
h[["counts"]] <- cumsum(h[["counts"]])
plot(h)

с ggplot2?

Я хочу также нарисовать многоугольник, как это

lines(h[["breaks"]],c(0,h[["counts"]]))