``` R library(ggplot2) data(SpeedSki, package = "GDAdata") p <- ggplot(SpeedSki, aes(Speed)) + geom_histogram(binwidth=2.5) p p + xlim(160, 220) p + xlim(159, 220) ```