Optimal launch angle?

• Previous graph suggests:
  • Higher launch speed always better
  • But for launch angle, there is an optimal
• Focus on 100-105 mph balls:

sc_2023 |>
  filter(launch_speed >= 100, launch_speed <= 105) |>
  ggplot(aes(x = launch_angle, y = HR)) + geom_smooth(method = "gam") +
      scale_y_continuous( "Probability of a Home Run", limits = c(0, 1)) +
      scale_x_continuous( "Launch Angle (degrees)", limits = c(10, 50))

## `geom_smooth()` using formula = 'y ~ s(x, bs = "cs")'

## Warning: Removed 8258 rows containing non-finite outside the scale range
## (`stat_smooth()`).

## Warning: Removed 13 rows containing missing values or values outside the scale range
## (`geom_smooth()`).