qplot( mtcars$cyl, geom = "bar", fill = I("red"), xlab = "Cylinders", ylab = "Number of Vehicles" main = "Cylinders in mtcars" )