Untitled

carregar pacotes

library(fpp3) 

## Warning: pacote 'fpp3' foi compilado no R versão 4.4.2

## Registered S3 method overwritten by 'tsibble':
##   method               from 
##   as_tibble.grouped_df dplyr

## ── Attaching packages ──────────────────────────────────────────── fpp3 1.0.1 ──

## ✔ tibble      3.2.1     ✔ tsibble     1.1.5
## ✔ dplyr       1.1.4     ✔ tsibbledata 0.4.1
## ✔ tidyr       1.3.1     ✔ feasts      0.4.1
## ✔ lubridate   1.9.3     ✔ fable       0.4.1
## ✔ ggplot2     3.5.1

## Warning: pacote 'tidyr' foi compilado no R versão 4.4.2

## Warning: pacote 'lubridate' foi compilado no R versão 4.4.2

## Warning: pacote 'ggplot2' foi compilado no R versão 4.4.2

## Warning: pacote 'tsibble' foi compilado no R versão 4.4.2

## Warning: pacote 'tsibbledata' foi compilado no R versão 4.4.2

## Warning: pacote 'feasts' foi compilado no R versão 4.4.2

## Warning: pacote 'fabletools' foi compilado no R versão 4.4.2

## Warning: pacote 'fable' foi compilado no R versão 4.4.2

## ── Conflicts ───────────────────────────────────────────────── fpp3_conflicts ──
## ✖ lubridate::date()    masks base::date()
## ✖ dplyr::filter()      masks stats::filter()
## ✖ tsibble::intersect() masks base::intersect()
## ✖ tsibble::interval()  masks lubridate::interval()
## ✖ dplyr::lag()         masks stats::lag()
## ✖ tsibble::setdiff()   masks base::setdiff()
## ✖ tsibble::union()     masks base::union()

library(quantmod) 

## Warning: pacote 'quantmod' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: xts

## Warning: pacote 'xts' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: zoo

## Warning: pacote 'zoo' foi compilado no R versão 4.4.2

## 
## Anexando pacote: 'zoo'

## O seguinte objeto é mascarado por 'package:tsibble':
## 
##     index

## Os seguintes objetos são mascarados por 'package:base':
## 
##     as.Date, as.Date.numeric

## 
## ######################### Warning from 'xts' package ##########################
## #                                                                             #
## # The dplyr lag() function breaks how base R's lag() function is supposed to  #
## # work, which breaks lag(my_xts). Calls to lag(my_xts) that you type or       #
## # source() into this session won't work correctly.                            #
## #                                                                             #
## # Use stats::lag() to make sure you're not using dplyr::lag(), or you can add #
## # conflictRules('dplyr', exclude = 'lag') to your .Rprofile to stop           #
## # dplyr from breaking base R's lag() function.                                #
## #                                                                             #
## # Code in packages is not affected. It's protected by R's namespace mechanism #
## # Set `options(xts.warn_dplyr_breaks_lag = FALSE)` to suppress this warning.  #
## #                                                                             #
## ###############################################################################

## 
## Anexando pacote: 'xts'

## Os seguintes objetos são mascarados por 'package:dplyr':
## 
##     first, last

## Carregando pacotes exigidos: TTR

## Warning: pacote 'TTR' foi compilado no R versão 4.4.2

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(readr)

## Warning: pacote 'readr' foi compilado no R versão 4.4.2

library(readxl) 

## Warning: pacote 'readxl' foi compilado no R versão 4.4.2

library(writexl)

## Warning: pacote 'writexl' foi compilado no R versão 4.4.2

library(openxlsx)

## Warning: pacote 'openxlsx' foi compilado no R versão 4.4.2

library(dplyr)
library(lubridate)
library(ggplot2)

library(forecast)

## Warning: pacote 'forecast' foi compilado no R versão 4.4.2

library(fpp)

## Warning: pacote 'fpp' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: fma

## Warning: pacote 'fma' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: expsmooth

## Warning: pacote 'expsmooth' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: lmtest

## Warning: pacote 'lmtest' foi compilado no R versão 4.4.2

## Carregando pacotes exigidos: tseries

## Warning: pacote 'tseries' foi compilado no R versão 4.4.2

## 
## Anexando pacote: 'fpp'

## O seguinte objeto é mascarado por 'package:fpp3':
## 
##     insurance

library(fpp2)     

## Warning: pacote 'fpp2' foi compilado no R versão 4.4.2

## 
## Anexando pacote: 'fpp2'

## Os seguintes objetos são mascarados por 'package:fpp':
## 
##     ausair, ausbeer, austa, austourists, debitcards, departures,
##     elecequip, euretail, guinearice, oil, sunspotarea, usmelec

## O seguinte objeto é mascarado por 'package:fpp3':
## 
##     insurance

library(tseries)
library(patchwork) 

## Warning: pacote 'patchwork' foi compilado no R versão 4.4.2

library(mFilter)

## Warning: pacote 'mFilter' foi compilado no R versão 4.4.2

library(xts)    
library(zoo)

Ler os arquivos das planilhas Excel

Vendas2024 <- read_excel("C:/Users/USUARIO/OneDrive/Desktop/algoritmo/Vendas2024.xlsx")
View(Vendas2024)


vendas <- read_excel("C:/Users/USUARIO/OneDrive/Desktop/algoritmo/Vendas2024.xlsx")

venda_mes <- vendas  %>%
  group_by(ano ,mes) %>%
  summarise(venda_mensal = sum(venda_diaria)) %>%
  arrange(ano, mes)

## `summarise()` has grouped output by 'ano'. You can override using the `.groups`
## argument.

Criando os gráficos

plot(venda_mes$venda_mensal)

vendas_mes_ts <- ts(venda_mes$venda_mensal, start = c(2018,1), frequency = 12)
plot(vendas_mes_ts)

decomp_vendas_mes <- decompose(vendas_mes_ts, type = 'additive')
plot(decomp_vendas_mes)

forecast(vendas_mes_ts , 6, 90)

##          Point Forecast    Lo 90    Hi 90
## Apr 2024       592128.1 508364.8 675891.4
## May 2024       677756.0 563531.7 791980.3
## Jun 2024       626941.9 488818.4 765065.3
## Jul 2024       546903.3 388445.2 705361.4
## Aug 2024       546792.1 370327.1 723257.0
## Sep 2024       543842.9 351045.7 736640.1