Subquery With Group By In R Two