W3School TIY Editor

Data_Cars <- mtcars names(sort(-table(Data_Cars$wt)))[1]