library(baseballr) | |
library(dplyr) | |
bryant <- scrape_statcast_savant_batter(start_date = "2016-04-03", end_date = "2016-10-03", batterid = 592178) | |
bryant_reds <- bryant %>% | |
mutate(reds = away_team == "CIN" | home_team == "CIN") %>% | |
group_by(reds) %>% | |
summarize( | |
avg_launchangle = mean(as.numeric(as.character(hit_angle)), na.rm = TRUE), | |
avg_hitspeed = mean(hit_speed, na.rm = TRUE), | |
avg_hitdistance = mean(hit_distance_sc, na.rm = TRUE), | |
barrel_freq = mean(barrel, na.rm = TRUE) | |
) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment