aggregation code snippets in r