input <- mtcars[,c('mpg','cyl')]
print(head(input))

# Give the chart file a name:
png(file = "boxplot1.png")

# Plot the chart:
boxplot(mpg ~ cyl, data = mtcars, xlab = "Number of Cylinders",
        ylab = "Miles Per Gallon", main = "Mileage Data")

# Save the file:
dev.off()

