准备工作：

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" )

结束！！！