绘制一个条形图

创建一个垂直的条形图

1.      c=table(mtcars$am, mtcars$cyl)
        c
            4  6  8
         0  3  4 12
         1  8  3  2
        barplot(c,beside=TRUE, horiz=FALSE,  las=1,
        names.arg=c("cyl=4","cyl=6","cyl=8"),
        legend.tex=c("am=0","am=1"),
        args.legend=list(x="top"),
        main="变速器 am、气缸数 cyl  与汽车数量",
        col=c("blue","green"))