powered by
interactiveFX(data, spheres = TRUE, color = "pitch_types", avg.by, interval = 0.01, alpha = 1, show.legend = TRUE, ...)
data(pitches) Rivera <- subset(pitches, pitcher_name=="Mariano Rivera") interactiveFX(Rivera, interval=.05) interactiveFX(Rivera, avg.by="pitch_types")
Run the code above in your browser using DataLab