https://sheepking.pages.dev/posts/r-aggregate-function-summarise-group-by-example254496/