無法在 R 中自動繪制數據幀時間序列

Question

我正在嘗試使用以下數據集完成時間序列預測未來 2 年內按月計入的呼叫數量

https://open.canada.ca/data/en/dataset/12d55393-2c84-4681-8c04-dc43775dbdfd/resource/62b40b15-a010-4fe7-8d56-d631802231be

我使用了業務線司機和車輛服務隊列（英語 + 法語）

數據包括 3 列：呼叫的業務范圍、日期（月份和年份）和處理的呼叫數。

對於我的初步分析，我嘗試使用autoplot但遇到了問題。 我試過下面的代碼。

# Load the forecasting package
library(fpp3)

# Load the Data
load(Book3)

# Declare time series data
Book3 <- ts( Book3, [,3], start = 2016,1, frequency = 12)

############################################
Preliminary analysis
############################################
#Time Plot
autoplot(Book3) + 
  ggtitle("Test plot") + 
  ylab("Calls Handled")

“Book3”是我的數據集的名稱。 然而，問題是當我嘗試運行它時，出現以下錯誤：

Error in `autoplot()`:
! Objects of type tbl_df/tbl/data.frame not supported by autoplot.
Run `rlang::last_error()` to see where the error occurred.

也可以使用以下方法重建數據集：

structure(list(`Queue Group/Line of Business` = c("Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)", 
"Driver and Vehicle Services queues (English + French)", "Driver and Vehicle Services queues (English + French)"
), DATE = c("2016-Jan", "2016-Feb", "2016-Mar", "2016-Apr", "2016-May", 
"2016-Jun", "2016-Jul", "2016-Aug", "2016-Sep", "2016-Oct", "2016-Nov", 
"2016-Dec", "2017-Jan", "2017-Feb", "2017-Mar", "2017-Apr", "2017-May", 
"2017-Jun", "2017-Jul", "2017-Aug", "2017-Sep", "2017-Oct", "2017-Nov", 
"2017-Dec", "2018-Jan", "2018-Feb", "2018-Mar", "2018-Apr", "2018-May", 
"2018-Jun", "2018-Jul", "2018-Aug", "2018-Sep", "2018-Oct", "2018-Nov", 
"2018-Dec", "2019-Jan", "2019-Feb", "2019-Mar", "2019-Apr", "2019-May", 
"2019-Jun", "2019-Jul", "2019-Aug", "2019-Sep", "2019-Oct", "2019-Nov", 
"2019-Dec", "2020-Jan", "2020-Feb", "2020-Mar", "2020-Apr", "2020-May", 
"2020-Jun", "2020-Jul", "2020-Aug", "2020-Sep", "2020-Oct", "2020-Nov", 
"2020-Dec", "2021-Jan", "2021-Feb", "2021-Mar", "2021-Apr", "2021-May", 
"2021-Jun", "2021-Jul", "2021-Aug", "2021-Sep"), `Calls Handled` = c(70660, 
61905, 63322, 68323, 72465, 67761, 64797, 77825, 71506, 71563, 
73651, 62384, 78243, 66130, 72600, 57756, 71920, 75819, 73144, 
82160, 70994, 73033, 66115, 53979, 71682, 57638, 66280, 56167, 
75368, 70826, 73149, 79144, 70100, 72516, 63654, 53070, 73814, 
57584, 66132, 63191, 72111, 63801, 68660, 67934, 57454, 56167, 
49349, 45312, 60766, 50218, 56790, 62748, 84383, 95169, 79610, 
70333, 80930, 75381, 77950, 78096, 73031, 60816, 89674, 74114, 
74114, 74717, 64373, 64202, 99922)), class = c("tbl_df", "tbl", 
"data.frame"), row.names = c(NA, -69L))

Answer 1

用於將第 3 列轉換為時間序列的語法不正確。 它應該是：

Book3 <- ts(Book3[,3], frequency = 12, start = c(2016, 1))

然后：

autoplot(Book3)