# NOT RUN {
plot(May)
plot(May, events = c("Single","Double","Triple","Home Run"), pch = 16)
plot(May, batterName = "Trout", main = "Mike Trout's May 2013", pch = 16)
plot(May, pitcherName = "Kershaw", main = "Clayton Kershaw's May 2013", pch = 16)
plot(May, batterName = "Tulowitzki", pitcherName = "Kershaw",
main = "Clayton Kershaw versus Troy Tulowitzki: May 2013", pch = 16, cex = 3)
# }
Run the code above in your browser using DataLab