Histograma acumulativo con ggplot2

¿Cómo podría obtener un histograma acumulativo como este?

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

con ggplot2?

También quiero dibujar un polígono como este.

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