ACF_PACF

library(forecast)

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

wfj.sales <- read.csv("WFJ_Sales_Full.csv")
head(wfj.sales)

##   Obs WFJ.Sales
## 1   1  23056.13
## 2   2  24817.32
## 3   3  24299.55
## 4   4  23242.47
## 5   5  22862.30
## 6   6  22862.68

wfj.sales.ts <- ts(wfj.sales$WFJ.Sales,start = 1)

ggAcf(wfj.sales.ts, main = "ACF of WFJ Sales")

## Warning in ggplot2::geom_segment(lineend = "butt", ...): Ignoring unknown
## parameters: `main`

ggPacf(wfj.sales.ts, main = "PACF of WFJ Sales")

## Warning in ggplot2::geom_segment(lineend = "butt", ...): Ignoring unknown
## parameters: `main`