数据源:
day sales
2015/1/1 119613
2015/2/1 58481
2015/3/1 90350
2015/4/1 151975
2015/5/1 201464
2015/6/1 218075
2015/7/1 297448
2015/8/1 333036
2015/9/1 524185
2015/10/1 674426
2015/11/1 652650
2015/12/1 1339579
2016/1/1 858271
2016/2/1 322565
2016/3/1 719774
2016/4/1 781450
2016/5/1 1122696
2016/6/1 831057
2016/7/1 1006733
2016/8/1 1033017
2016/9/1 907956
2016/10/1 1097913
2016/11/1 1250100
2016/12/1 1958772
代码部分:
#加载原始数据
src_dat <-read.csv("E:/.../销量.csv",header=T,stringsAsFactors=FALSE)
#转为时间序列,并将其在图上显示出来。
salesTS <-ts(src_dat$sales[1:24],frequency=12,start=c(2015,1,1))
plot.ts(salesTS,col="red")