Get your own website Result Size: 625 x 565
x
 
Data_Cars <- mtcars
rownames(Data_Cars)[which.max(Data_Cars$hp)]
rownames(Data_Cars)[which.min(Data_Cars$hp)]
[1] "Maserati Bora"
[1] "Honda Civic"