1

让我们来看看，我有每个类别的门票销售数据，这些数据是按月计算的。像这样：

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？到目前为止，我一直在单独应用该模型。

4

1 回答 1

3

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)
})
于 2019-03-15T07:20:19.737 回答