library(tidyverse)

tibble(x = rnorm(n=100)) %>%
  arrange(x) %>%
  mutate(bin = base::cut(x, breaks=pretty(x,n=20))) %>%
  group_by(bin) %>%
  mutate(count = 1:n()) %>%
  ggplot(data=., aes(x=x, y=count)) +
  geom_path(aes(group=bin)) +
  geom_point(size=0.5) +
  ylim(c(0,NA))