r - ggplot2 による累積ヒストグラム

Question

このような累積ヒストグラムを取得するにはどうすればよいですか

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

ggplot2で？

こんなポリゴンも描きたい

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