R语言数据可视化2—ggplot2各种维度的业务量统计根据类型统计不同月份的业务量

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