Kumulatives Histogramm mit ggplot2

Wie könnte ich ein solches kumulatives Histogramm erhalten?

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

mit ggplot2?

Ich möchte auch so ein Polygon zeichnen

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