直方圖

hist(x=airquality$Month, 
     main="Statistic Score",         
     xlab="Statistic",                  
     ylab="Score")