# NOT RUN {
library(ggplot2)
# Finishing times
ggplot(run12, aes(x = time)) +
geom_histogram(binwidth = 5) +
labs(
title = "Finishing times for 2012 Cherry Blossom Run,",
x = "Time to complete the race, in minutes",
y = "Frequency"
)
# Pacing
ggplot(run12, aes(x = pace)) +
geom_histogram(binwidth = 0.5) +
labs(
title = "Pacing for 2012 Cherry Blossom Run",
x = "Average time per mile, in minutes",
y = "Frequency"
)
# }
Run the code above in your browser using DataLab