10.1 Moving batting averages

Similar to what we did with DiMaggio, we’ll take a look at Ichiro’s performance with a 30 at-bat window

ichiro_H <- ichiro_AB |> 
  dplyr::mutate(AB_Num = dplyr::row_number()) |> 
  dplyr::filter(H == 1)

moving_average(ichiro_AB, 30) |> 
  ggplot2::ggplot(ggplot2::aes(Game, Average)) +
  ggplot2::geom_line() + ggplot2::xlab("AB") +
  ggplot2::geom_hline(yintercept = mean(ichiro_AB$H),
             color = "red") +
  ggplot2::geom_rug(
    data = ichiro_H,
    ggplot2::aes(AB_Num, .3 * H), sides = "b",
    color = "blue"
  )

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