Quiz2

plot(type="b",mtcars$hp,mtcars$mpg,col="lightgreen",pch=20,xlab="Horse Power",ylab="Miles Per Gallon", main = "Horse Power vs Miles Per Gallon")

hist(mtcars$hp,
        col="darkred",
        main="Distribution of by Horse Power",
        xlab="Horse Power",
        ylab="Number of Cars",
     breaks=5)