BoxPlot

input=mtcars[16:20,c('mpg','cyl')]         

 boxplot(mpg ~ cyl,data=input,xlab="number of cylinders",ylab="miles per gallon",main="mileage data")