Run »
Data_Cars <- mtcars names(sort(-table(Data_Cars$wt)))[1]
[1] "3.44"