Scatter plot

library(carData)
library(car)
attach(mtcars)
plot(wt,mpg,
     xlim=c(0,10) , ylim=c(0,30), 
     pch=20,cex=1, 
     col=c("#996699","#663399"),
     xlab="Car Weight ", ylab="Miles Per Gallon ",
     cex.lab = 1,cex.axis =1,
     main="A simple scatterplot",cex.main = 1)

#add fit lines
abline(lm(mpg~wt), col="#CC0000") # regression line (y~x)
lines(lowess(wt,mpg), col="#3399FF") # lowess line (x,y)