set.seed(42)
qplot(1:5, stat = "ecdf", geom = "step")
x <- rnorm(5)
qplot(x, stat = "ecdf", geom = "step")
ggplot(NULL, aes(x = x)) + stat_ecdf(geom = "step")
ggplot(NULL, aes(x = x)) + stat_ecdf(geom = "step") +
stat_ecdf(geom = "point")