Reporte Ventas Junio 2019

Este reporte representa el analisis ejecutado al historico de ventas durante el mes de Junio para el año 2019 y su tratamiento para su uso en el futuro como base de datos.

En la siguiente grafica se puede observar el comportamiento de ventas en el mes mencionado.

# Para este conjunto de datos las ventas se comportaron de manera constante durante el periodo. Con un promedio de ventas de 45 unidades por dia y un total de 1.697 unidades en el mes.

Para garantizar la informacion y la distribucion de los datos se procede a elaborar un diagrama de cajas y bigotes con el fin de identificar datos atipicos en la serie.

boxplot(ventas_junio2019,
        boxwex = 1, col = c("lightblue"),
        main = "Ventas Junio 2019",
        xlab = "Analisis Dispersion Ventas unds", ylab = "Unds Vendidas",
        sep = ":", lex.order = TRUE, ylim = c(0, 150), yaxs = "i")

boxplot.stats(ventas_junio2019)
## $stats
## [1] 30.0 46.0 53.5 64.0 90.0
## 
## $n
## [1] 30
## 
## $conf
## [1] 48.30759 58.69241
## 
## $out
## [1] 120

En el anterior grafico se analizo la serie de datos identificando 1 dato atipico de venta para el dia 25 con un valor de 120. Despues de una investigacion a este valor se establecio que para el dia 25 se realizo una promocion al consumidor (descuento de precio venta) en la zona occidente de la ciudad. Para mantener la correlacion de los datos y evitar sesgos en su distribucion se procede a realizar un metodo de suavizacion para asegurar la informacion y usarla en estudios futuros.

ventas_junio2019_ajustada1 <- ts(ATIPICOS$`Ventas Sin Atipicos`)
ventas_junio2019_ajustada <- ts(tsclean(ATIPICOS$`Ventas Sin Atipicos`))
autoplot(ventas_junio2019_ajustada, series="Suavizacion", xlab = "Dias", ylab = "Ventas", main = "Ventas Ajustadas Junio 2019 ") +    autolayer(ventas_junio2019_ajustada1, series="Original") +
  scale_colour_manual(
    values=c(`Suavizacion`="red",`Original`="black"))

ventas_junio2019_ajustada
## Time Series:
## Start = 1 
## End = 30 
## Frequency = 1 
##  [1] 43.0 65.0 43.0 46.0 52.0 52.0 67.0 63.0 90.0 41.0 49.0 56.0 42.0 69.0 56.0
## [16] 42.0 59.0 49.0 47.0 65.0 62.0 40.0 67.0 50.0 52.5 55.0 63.0 64.0 30.0 50.0

En este grafico se muestra el proceso de suavizacion que se le realizo a las ventas del dia 25, ya que fue una venta atipica en el periodo. Como se puede observar en la tabla inferior a la grafica el nuevo valor para las ventas del dia 25 es de 52 unidades.Por lo anterior este ultimo dato sera reemplazado en el historico para cuestiones de estudios de forecast.