## Animations generated in R version 3.1.0 (2014-04-10)
##   using the package animation
library(animation)
library(pitchRx)
library(ggplot2)
animateFX(pitches, avg.by = "pitch_types", layer = list(facet_grid(pitcher_name ~ 
    stand, labeller = relabel), theme_bw(), coord_equal()))
## R version 3.1.0 (2014-04-10)
## Platform: x86_64-apple-darwin13.1.0 (64-bit)
## Other packages: animation 2.2, pitchRx 1.5, ggplot2 1.0.0