Run »
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"