how-to-apply-summary-to-group_by-in-r