我正在尝试使用R中的先知（使用多个项目的列表）进行预测。我能够获得输出，但是当我导出到csv时，它应该更加整洁和整洁。希望输出在第一列中包含日期（ds），在第二列中包含产品，在第三列中包含值（yhat）
tb=as_tibble(data_input)
tslist <- tb %>% gather("type", "y", -ds) %>% split(.$type)
tslist <- lapply(tslist, function(x) { x["type"] <- NULL; x })
maplist <- map(tslist, prophet)
futurelist <- map(maplist, make_future_dataframe, periods = 12, freq = 'month')
forecast <- map2(maplist, futurelist, predict)
write.csv(forecast,"Output_Prophet.csv")
任何人都可以找到上述代码，它们可以提供以下格式的输出。
Ds Product Yhat
01/01/2017 A 8
01/02/2017 A 9
01/01/2017 B 14
01/02/2017 B 18
我当前的输出看起来像下面的格式Output Prophet
