Another useful function to aggregate the variable is sum().
You can check which leagues have the more homeruns.
## Sum data % > % group_by(lgID) % > % summarise(sum_homerun_league = sum(HR))