How to select the row with the maximum value in each group

Question

In a dataset with multiple observations for each subject I want to take a subset with only the maximum data value for each record. For example, with a following dataset:

Answer 1

Another option is slice

library(dplyr)
group %>%
     group_by(Subject) %>%
     slice(which.max(pt))
#    Subject    pt Event
#      
#1       1     5     2
#2       2    17     2
#3       3     5     2