在图形中绘制大型gts对象

Question

我是R程序的新手。我已经使用hts包生成了一个分层时间序列，我需要使用有向图分别绘制每个层次中的时间序列。

    library(hts)
    abc <- ts(5 + matrix(sort(rnorm(1000)), ncol = 10, nrow = 100))
    colnames(abc) <- c("A10A", "A10B", "A10C", "A20A", "A20B",
               "B30A", "B30B", "B30C", "B40A", "B40B")
     y <- hts(abc, characters = c(1, 2, 1))

     fcasts1 <- forecast(y, method = "bu" ,h=4, fmethod = "arima", 
                     parallel = TRUE)

     dygraph(fcasts1,y)

我一直收到这个错误信息，

  Error in UseMethod("as.xts") : 
  no applicable method for 'as.xts' applied to an object of class "c('gts', 'hts')"

这个问题有解决办法吗?也许有人能告诉我如何把变量放在有向图中。

Answer 1

不可能使用有向图形直接绘制hts对象。您需要做的是将hts$bts对象转换为一个矩阵，然后使用ts()函数将其转换为一个正常的时间序列。

下面是我想出的一个例子。

library(hts)
abc <- ts(5 + matrix(sort(rnorm(1000)), ncol = 10, nrow = 100))
colnames(abc) <- c("A10A", "A10B", "A10C", "A20A", "A20B",
                   "B30A", "B30B", "B30C", "B40A", "B40B")
y <- hts(abc, characters = c(1, 2, 1))

fcasts1 <- forecast.gts(y, method = "bu" ,h=4, fmethod = "arima", 
                         parallel = TRUE)
ts1 <- as.matrix(fcasts1$bts)
ts1 <- ts(ts1,start = c(2016,3), frequency = 12)
dygraph(ts1[,"A10A"],main='Sample dygraph ',ylab = 'Demand')