R预测自动绘图或hchart

Question

would like to do multiple arima time series plot for each - Cooked and market - as shown in the image below. Have tried both autoplot and hchart but both does not work. Please advise and assist. Any help would be very much appreciated.

forecast1<-ts(lapply(arima, function(x) forecast(auto.arima(x), level=95)))

autoplot(forecast1)
hchart(forecast1)

Answer 1

I took the step of turning the data into a time series before using the forecast algorithm. Then printing the chart is just a matter of using apply on the new list that is generated. Please see the code below.

Year <- seq(2012, 2018)
Cooked <- c(157.4, 157.2, 168.8, 192.3, 201.8, 233.4, 241.2)
Market <- c(51.7, 44.9, 49.5, 53.6, 57.2, 54.1, 53.5)
df <- as.data.frame(cbind(Year, Cooked, Market))
ts_df <- ts(df[, -1], start = 2012, frequency = 1)

library(forecast)
forecast1<-lapply(ts_df, function(x) forecast(auto.arima(x), level=95))

lapply(forecast1, function(x) autoplot(x))

I recommend in future questions, putting the data together in a similar script to help us help you.