Peak age and career at-bats

age_plot +
  aes(x = log2(AB_total)) +
  xlab("Log2 of Career AB")

## `geom_smooth()` using formula = 'y ~ x'

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

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

• Longer careers tend to peak at higher Age

• If they peak earlier they also retire earlier?