# NOT RUN {
plot(Price ~ Mileage, data=auto,pch=19,col=2)
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 DataCamp Workspace