Get your own website Result Size: 625 x 565
x
 
Data_Cars <- mtcars
names(sort(-table(Data_Cars$wt)))[1]
[1] "3.44"