Better way to apply which.max over dataframe

Question

so I\'m trying to learn R while playing with a dataset from https://www.kaggle.com/abcsds/pokemon

data = read.csv("Pokemon.csv")
data$Name = sub(".