For reproducibility, I provide this dataset:
bball <- tibble(player = c(\'playerA\', \'playerB\', \'playerC\'), fga = c(8, 12, 10),