Renaming a column entry when it is the maximum value by group

Question

I have a dataset as follows:

library(data.table)
DT <- structure(list(State_Ab = c("MD", "MD", "MD", "MD", "MD