powered by
auto
points(auto$Mileage[auto$Country=="USA"],auto$Price[auto$Country=="USA"],pch=19,col=4) legend(30,25000,legend=c("USA","Japan"),pch=19,col=c(4,2))
Run the code above in your browser using DataLab