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

来源:转载

准备工作:

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

结束!!!

 

分享给朋友:
您可能感兴趣的文章:
随机阅读: