销售额减少问题出在哪里？
销售额之前一直保持着稳定的增长，然而这个月下降了。无论从市场环境还是从本身的产品状态来看，这个产品的销售额还有继续增长的空间。因此销售额下降成了公司一大问题，
导致销售额下降的原因有哪些？也就是说本月与上月有哪些地方不同？
提出假设：
1、在商业宣传上存在问题。
2、每月以不同主题开展的活动存在问题。
用简单的方法大致验证假设：
咨询其他部门，得到了以下信息：
1、由于预算缘故，和上月相比，本月并没有开展那么多的商业宣传。
2、活动内容与上月相比几乎没有变动。
进一步来说：由于商业宣传费用的减少，导致新的用户减少。
因此需要通过数据确认新用户的减少与销售额下降之间的关系。
探讨所需分析的数据：
知道销售额的构成，以下数据是必不可少的：
- DAU 每天至少来访1次的用户数据
- DPU 每天至少消费1日元的用户数据
- INSTALL 记录每个用户首次使用产品的时间数据
另外，对于上述3个部分，需要收集的内容如下
|
DAU |
数据类型 |
标识 |
|
访问时间 |
字符串 |
log_date |
|
应用名称 |
字符串 |
app_name |
|
用户ID |
数值 |
user_id |
|
DPU |
数据类型 |
标识 |
|
消费日期 |
字符串 |
log_date |
|
应用名称 |
字符串 |
app_name |
|
用户ID |
数值 |
user_id |
|
消费额 |
数值 |
payment |
|
INSTALL |
数据类型 |
标识 |
|
首次使用的日期 |
字符串 |
install_date |
|
应用名称 |
字符串 |
app_name |
|
用户ID |
数值 |
user_id |
收集分析所需的数据：
SQL提取数据：
因为数据是以日维度保存的数据，在SQL提取时我们按月维度提取：
代码：
结果显示：
数据可视化：
windowsFonts(myFont = windowsFont("微软雅黑"))
ggplot(payment,aes(x=month_log,y=total.payment,fill=yonghu))+geom_bar(stat='identity')+scale_y_continuous(labels=comma)+annotate('text',x=1,y=10000,label='新用户',family='myFont', colour="darkred", size=3)+annotate('text',x=2,y=10000,label='新用户',family='myFont', colour="darkred", size=3)+annotate('text',x=1,y=70000,label='老用户',family='setif', colour="darkred", size=3)+annotate('text',x=2,y=70000,label='老用户',family='setif', colour="darkred", size=3)+labs(title='销 售 额 比 较 ( 上 月 / 本 月 )',x='',y='')+theme(plot.title = element_text(hjust = 0.5,family="myFont"))
可视化新用户的本月和上月的销售状况：金额2000以下
ggplot(min[min$yonghu=='新用户'& min$money > 0,],aes(x=money,fill=month_log))+geom_histogram(position='dodge',binwidth=2000) +theme(panel.background = element_rect(fill = "transparent", color = "gray"))+theme(axis.text.x=element_text(angle=30))+ggtitle("6月、7月 销售额分布")+theme(plot.title = element_text(hjust = 0.5,family="myFont"))+labs(x='',y='')