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") ## Not run: # interactiveFX(Rivera, interval=.05) # interactiveFX(Rivera, avg.by="pitch_types") # ## End(Not run)
Run the code above in your browser using DataLab