现实中的数据总是那么的无奈，现有终端的销售数据
数据分为三大块
1. 区域性的变量（字段）：省份（Province）、市、县、终端名称等
2. 产品性的变量（字段）：品类、SKU等
3. 交易性的变量（字段）：成交的时间（ChangeDate），成交额
通过
GSL1$Time<-format(GSL1$ChangeDate,"%H:%M")GSL1$Week<-as.factor(format(GSL1$ChangeDate,"%A"))将数据库GSL1中的交易星期几和交易的时间提取出来；
想看星期一到星期天，交易的时点的分布
qplot(Time,data=GSL1,geom="histogram,facets=Week~.)得到的是每个时点的count，于是，采用
ggplot(GSL1,aes(x=Time))+geom_histogram(aes(y=..density..))但结果不是我想要的，每个时点的频率并没有出现，请问要怎么弄
</p>