Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
library(pitchRx)
## scrape all pitchFX data from May 4th, 2012
dat <- scrapeFX(start = "2012-05-04", end = "2012-05-04")
## Join tables for data analysis
pitchFX <- join(dat$pitch, dat$atbat, by = c("num", "url"), type = "inner")
pitches <- subset(bos, pitcher_name = "Jon Lester")
facets <- facet_grid(. ~ stand)
strikeFX(pitches, geom = "tile") + facets
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment