library(ggplot2)
ggplot(df, aes(x)) + stat_ecdf(col = "red") +
                     stat_bin(aes(y = cumsum(..density..)/
                                      sum(..density..)),
                              alpha = 0.8)