Create a pitting animation of Hisashi-Iwakuma (4/2/2013)

gistfile1.txt

library(ggplot2)
library(lattice)
library(pitchRx)
library(plyr)

dat0402 <- scrapeFX(start="2013-04-02", end="2013-04-02")
pitches0402 <- plyr::join(dat0402$pitch, dat0402$atbat, 
                      by = c("num", "url"), 
                      type="inner")
iwakuma0402 <- subset(pitches0402, pitcher_name=="Hisashi Iwakuma")

iwakuma0402_FF_or_FS <- subset(iwakuma0402, pitch_type == "FF" | pitch_type == "FS")
animation::saveHTML({ animateFX(iwakuma0402_FF_or_FS, point.alpha = 0.8, layer = facet_grid(pitcher_name~stand)) })