Question Using group_by/summarise or group_by/mutate in Base R

Question

I am currently having a hard time getting a data set to group_by, then aggregate in base R. Here is the dput output for the first