# NOT RUN {
library(ggplot2)
# Finishing times by gender
ggplot(run09, aes(x = time, y = gender)) +
geom_boxplot() +
labs(
title = "Finishing times for 2009 Cherry Blossom Run, by gender",
x = "Time to complete the race, in minutes",
y = "Gender"
)
# Pacing times by gender
ggplot(run09, aes(x = pace, y = gender)) +
geom_boxplot() +
labs(
title = "Pacing for 2009 Cherry Blossom Run, by gender",
x = "Average time per mile, in minutes",
y = "Gender"
)
# }
Run the code above in your browser using DataLab