Subquery With Group By In R