2019天猫双11销售额预测：2583.387亿

来源：本文来自《趣味数据周刊》

作者：herain

数据预测，不是实际值，不要迷信

一年一度的双11，我们喜欢买买买，更乐意看到全民双11会创作怎样的销售奇迹。2019年是第11个双11，希望我们的梦想一一实现，再创销售奇迹。

等不及，我们一起预测2019天猫双11销售额。

注释：times代表第几次，gmv代表销售额

1、历年销售预览：

2、简单的折线图：

3、绘制散点图：

看一看次数与销售额的的关系，可以看一个有坡度弯曲的曲线，如果强行采用一元线性回归，预测第11次双11的销售额（GMV）会低估。

    
    

     
     >tianmao <- data.frame(
    
    
    
    

     
     times=c(1,2,3,4,5,6,7,8,9,10),
gmv=c(0.5,9.36,52,191,350,571,
    
    
    
    

     
     912,1207,1682,2135));

    
    
    
    

     
     > library('car')
    
    
    
    

     
     > library(carData)
    
    
> scatterplot(gmv~times, data=tianmao,spread=F,
lty.smooth=1, pch=18, xlab="times",ylab="gmv",
cex.lab=0.7, family = 'SimSun')
#很高的相关性
    
    

     
     > cor(tianmao[,1],tianmao[,2])
    
    
    
    

     
     [1] 0.9517394
    
    

4、预测开始：

4.1、用一元线性回归预测（我知道上图看明显是曲线，因为数量小，可以试试预测值）

    
    

     
     tianmao <- data.frame(
    
    
    
    

     
     times=c(1,2,3,4,5,6,7,8,9,10),
gmv=c(0.5,9.36,52,191,350,571,
    
    
    
    

     
     912,1207,1682,2135));

> md<-lm(gmv~times, data=tianmao)
    
    

得到线性预测函数：

    
    

     
     x0<-data.frame(times=11)
predict(md, newdata=x0)
    
    

预测2019年，第11次的销售额gmv=2013.585。

    
    

     
     predict(md, x0, interval="confidence", level=0.95)
    
    

在置信度为95%的条件下预测gmv区间：[1627.233， 2399.937]

4.2、非线性的广义相加模型预测，对非线性的拟合会好一点

    
    

     
     > library(mgcv)
> library(nlme)
> model <-gam(gmv~s(times),data = tianmao)
> summary(model)

>x0<-data.frame(times=11)
> predict(model, newdata=x0)
       1
2583.387
    
    

预测2019年，第11次的销售额gmv= 2583.387。

5、结合一元线性回归模型的预测 和 相加模型的预测 

提前恭喜天猫2019年第11次双11大卖

天猫销售额保底：2013.585亿

 

有望创作新高：2583.387亿

最可能的销售额：2298.486亿

完

“欢迎来访~”