problem-4.3

problem-4.3  The scatterplot can be made with
> plot(MPG.city ~ Price, pch=as.numeric(Type), data=Cars93)
    
There is a relationship between price and mileage. Additionally, you can note that certain types are more likely to be cheap or expensive.