Question

让我们来，我有按年数月在每个类别中售出的门票的数据。像这样：

Year         Premium     Silver     Budget
Jan2016      112354      36745      456563       
Feb2016      1233445     234322     4533345
Mar2016      13456544    346755     34564422

我每月都有截至2019年2月的数据。这是我用来将Arima分别应用于每个类别的代码。我导入每列的计数并执行以下操作：

> count <-data.frame(mytickets$Premium)
> tickets<-ts(count, frequency = 12, start = c(2016, 1),end=c(2018,6)) 
> pi=auto.arima(tickets) 
> summary(pi) 
> q=forecast(pi,h=12)

我想预测明年每个月将售出多少张票。是否可以在同一张照片中应用自动ARIMA？到目前为止，我一直在单独应用模型。

Answer 1

如果要以类似方式计算多个事物，可以随时尝试lapply：


dt <- read.table(text ="Year         Premium     Silver     Budget
Jan2016      112354      36745      456563       
Feb2016      1233445     234322     4533345
Mar2016      13456544    346755     34564422", header = TRUE)

library(data.table)
dt <- data.table(dt)
res <- lapply(c("Premium", "Silver", "Budget"), function(x) {
  count <- dt[, get(x)]
  tickets <-
    ts(
      count,
      frequency = 12,
      start = c(2016, 1),
      end = c(2018, 6)
    )
  pi = auto.arima(tickets)
  forecast(pi, h = 12)
})

R-预测相同结果的多个类别的值

1 个答案: