R 從標准化的 data.frame 為 hts() 創建一個多元時間序列矩陣

Question

我有一個包含 3 列的 data.frame：

 telar <- data.frame(
  class = c("A","B","A","B"),
  date = as.Date(c("2019-01-01", "2019-01-01", "2019-02-01", "2019-02-01")),
  number = c(10, 20, 11, 21)
)

第一個包含類，第二個包含日期，第三個包含日期。 我想創建一個可由 hts 包中的 hts 函數使用的多元時間序列矩陣。 它應該是一個根節點，其余的是樹的葉子。

代碼應如下所示：

nodes <- list(length(unique(telar)))
## Here something to create the new time series matrix
my_hts <- hts(new_time_series_matrix, nodes)

謝謝大家！

Answer 1

new_time_series_matrix <- ts(
  select(
    dcast(telar, date ~ class), -date
  ),
  start=c(year(telar$date[1]), month(telar$date[1])), 
  frequency = 12
)
new_time_series_matrix

輸出

          A  B
Jan 2019 10 20
Feb 2019 11 21