有效地为data.frame中列的每个唯一值选择最大行数

I am trying to take a subset of a data frame, based on the occurence of a value. This is best explained in an example, given below. This question has a high relation to: I am trying to take a subset of a data frame, b