# NOT RUN {
# Default histogram display
ggplot(mpg, aes(displ)) +
geom_histogram(aes(y = stat(count)))
# Scale tallest bin to 1
ggplot(mpg, aes(displ)) +
geom_histogram(aes(y = stat(count / max(count))))
# }
Run the code above in your browser using DataLab