# NOT RUN {
library(ggplot2)
# Finishing times
ggplot(run17, aes(x = net_sec)) +
geom_histogram(binwidth = 300) +
facet_wrap(~event, nrow = 2) +
labs(
title = "Finishing times for 2017 Cherry Blossom Run, by event",
subititle = "After accounting for the staggered starting time",
x = "Time to complete the race, in seconds",
y = "Frequency"
)
# Pacing
ggplot(run17, aes(x = pace_sec)) +
geom_histogram(binwidth = 100) +
facet_wrap(~event, nrow = 2, scales = "free_y") +
labs(
title = "Pacing for 2017 Cherry Blossom Run, by event",
x = "Average time per mile, in seconds",
y = "Frequency"
)
# }
Run the code above in your browser using DataLab