Subquery With Group By In Rstudio