R 如何将ts预测转换为具有日期值的数据帧？
我正在使用arima开发一个预测模型，该模型需要导出到数据库中。我需要把我的预测变成一个数据帧。我已经做了一个详细的方式，但我希望有更简单的东西，所以我不必硬编码的日期R 如何将ts预测转换为具有日期值的数据帧？,r,dataframe,time-series,format,arima,R,Dataframe,Time Series,Format,Arima,我正在使用arima开发一个预测模型，该模型需要导出到数据库中。我需要把我的预测变成一个数据帧。我已经做了一个详细的方式，但我希望有更简单的东西，所以我不必硬编码的日期 为了获得预测，我正在创建一个模型“fit”，然后运行fcst1如果对象已经在全局环境中创建，请使用mget获取列表中的值 Forecast <- sapply(mget(ls(pattern = '^fcst\\d+$')), function(x) x$mean) 要从预测对象中自动获取月份，请使用索引 outlst
为了获得预测，我正在创建一个模型“fit”，然后运行
fcst1如果对象已经在全局环境中创建，请使用mget
获取列表中的值
Forecast <- sapply(mget(ls(pattern = '^fcst\\d+$')), function(x) x$mean)
要从预测
对象中自动获取月份，请使用索引
outlst <- lapply(mget(ls(pattern = '^fcst\\d+$')), function(x)
data.frame(months = index(x), Forecast = x$mean))
do.call(rbind, Map(cbind, outlst, Segment = paste("Segment", seq_along(outlst))))
outlst
months fcst$mean "Segment"
1 Sep-2020 2 Segment 1
2 Oct-2020 1 Segment 1
3 Nov-2020 3 Segment 1
4 Dec-2020 2 Segment 1
Forecast <- sapply(mget(ls(pattern = '^fcst\\d+$')), function(x) x$mean)
data.frame(months, Forecast, Segment = paste0("Segment", seq_along(Forecast))))
outlst <- lapply(mget(ls(pattern = '^fcst\\d+$')), function(x)
data.frame(months = index(x), Forecast = x$mean))
do.call(rbind, Map(cbind, outlst, Segment = paste("Segment", seq_along(outlst))))