Я сделал шаг, чтобы превратить данные во временные ряды, прежде чем использовать алгоритм прогноза. Тогда печать диаграммы - это всего лишь вопрос применения apply в новом сгенерированном списке. Пожалуйста, смотрите код ниже.
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))
Я рекомендую в будущих вопросах объединить данные в похожий скрипт, чтобы помочь нам помочь вам.