It seems you are avoiding to read the guide, I sincerely think I can't be more specific than the instructions on the guide I linked for you, but to try to clarify, the points that are not respected are:
- The sample data is not on a copy/paste friendly format.
- Your example is not self-contained since I can't simply copy it and run it into my own R session.
- The code is not minimal, since you are including unnecessary library calls and
View() commands.
As an example, this would be more of a proper reprex, Can you explain your problem in the context of this example?
library(ggplot2)
library(ggfortify)
# Sample data on a copy/paste friendly format
TSpend <- data.frame(
Fiscal_Year = c(2018,2020,2018,2019,2016,2016,2016,
2016,2017,2017,2020,2020,2019,2019,2016,2016,2016,
2016,2016,2016,2016,2016,2016,2016,2016,2016,2016,
2016,2019,2020,2020,2017,2017,2019,2019,2019,2016,2016,
2016,2016,2016,2019,2016,2017,2016,2016,2016,2016,
2016,2016,2016,2016,2016,2016,2016,2016,2016,2016,
2016,2016,2018,2018,2018,2018,2016,2016,2016,2016,2016,
2016,2016,2016,2018,2016,2016,2017,2017,2016,2016,
2018,2018,2018,2017,2017,2018,2018,2018,2018,2018,
2018,2018,2018,2017,2017,2017,2017,2018,2018,2018,2018,
2018,2017,2017,2020,2018,2018,2018,2018,2018,2018,
2018,2018,2018,2019,2019,2019,2019,2019,2019,2019,
2019,2019,2019,2019,2019,2019,2019,2019,2019,2019,2019,
2019,2019,2019,2020,2020,2020,2020,2020,2020,2020,
2020,2020,2020,2020,2020,2020,2018,2019,2020,2020,
2020,2020,2020,2020,2020,2020,2019,2020,2020,2020,2020,
2020,2020,2020,2020,2020,2020,2018,2018,2018,2018,
2018,2018),
Spend = c(2722,2761,2777,2880,3115,3115,3115,
3115,3207,3207,3282,3282,3500,3500,3737,3737,3737,
3737,3737,3737,3737,3737,3737,3737,3737,3737,3737,
3737,3815,3865,3865,4041,4144,4280,4280,4280,4333,4333,
4333,4333,4333,4391,4516,4554,4610,4610,4610,4610,
4610,4610,4610,4610,4610,4610,4610,4610,4610,4610,
4610,4610,4778,4778,4778,4778,4899,5106,5106,5106,5106,
5106,5106,5106,5291,5712,5712,5712,5712,5766,5766,
5800,5800,5800,5800,5800,5800,5800,5800,5800,5800,
5800,5800,5800,5800,5800,5800,5800,5800,5800,5800,5800,
5800,5800,5800,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900,5900,5900,5900,5900,5900,5900,5900,5900,
5900,5900)
)
myts <- ts(TSpend$Spend, start = c(2016, 1), frequency = 4)
autoplot(myts)

Created on 2020-08-31 by the reprex package (v0.3.0)