R code of scatter plot for three variables

How about the top 60 grouped by Child(top 20 child)?