准备工作：

1.案例所用的表“test1.csv”

2.所用到的R包"ggplot2"、"lubridate"

ggplot2介绍:用来作图

lubridate介绍：用来提取日期中月份元素

 

实战部分开始

案例一目的：根据“开始时间”字段统计“类型”的业务量

> test<-read.csv("test1.csv",header=TRUE)> names(test)[1] "省份"     "类型"     "开始时间"> library(ggplot2)> library(lubridate)> ##根据月份统计类型的业务量> ggplot(test,aes(x=month(开始时间),fill=类型))+      geom_bar(position = "dodge")

案例二目的：根据类型统计不同月份的业务量

> ##根据类型统计不同月份的业务量> test$类型<-factor(test$类型,levels = c("一级","二级","三级"))  ##将X轴排序> ggplot(test,aes(x=类型,fill=factor(month(开始时间))))+   ##不指定Y轴意思是求记录数     geom_bar(position = "dodge")+   ##dodge表示并排柱子     guides(fill=guide_legend(title = "月份")) ##更改图例标题名称

 

案例三目的：省公司业务量按月份同比统计

> ##省公司业务量按月份同比统计> ggplot(test,aes(x=省份,fill=factor(month(开始时间))))+     geom_bar(position = "dodge")+     guides(fill=guide_legend(title = "月份"))

案例四目的：按省份业务量统计降序排列

> ##按省份业务量统计降序排列> long<-aggregate(省份~factor(省份),test,length)> names(long)<-c("省份","业务量")   ##重命名数据集列名> ggplot(long,aes(省份,业务量,fill=业务量))+     geom_bar(position = "dodge",stat = "identity" )

结束！！！