Question

我正在使用Facebook开放源代码的先知，而我是使用dplyr的新手。我的数据库包含一些ID及其各自的每月时间序列。这是一个示例：

df <-tibble::tribble(
  ~ID,        ~ds,     ~y,
   1L, "2018-09-01",    -29884,
   1L, "2018-10-01",     16143,
   1L, "2018-11-01",      3785,
   1L, "2018-12-01",       -264,
   1L, "2019-01-01",       -308,
   1L, "2019-02-01",        712,
   1L, "2019-03-01",       -260,
   1L, "2019-04-01",       -300,
   1L, "2019-05-01",       -149,
   1L, "2019-06-01",       -291,
   1L, "2019-07-01",       -284,
   1L, "2019-08-01",       -158,
   1L, "2019-09-01",       -272,
   1L, "2019-10-01",       -289,
   1L, "2019-11-01",     -1268,
   2L, "2016-12-01",       -489,
   2L, "2017-01-01",      7606,
   2L, "2017-02-01",       -458,
   2L, "2017-03-01",      8603,
   2L, "2017-04-01",      6298,
   2L, "2017-05-01",      2598,
   2L, "2017-06-01",       914,
   2L, "2017-07-01",      6004,
   2L, "2017-08-01",      3684,
   2L, "2017-09-01",     -1815,
   2L, "2017-10-01",     12487,
   2L, "2017-11-01",     -1288,
   2L, "2017-12-01",      3213,
   2L, "2018-01-01",      3447,
   2L, "2018-02-01",      3986,
   2L, "2018-03-01",    808201,
   2L, "2018-04-01",      2033,
   2L, "2018-05-01",      4401,
   2L, "2018-06-01",      3482,
   2L, "2018-07-01",       404,
   2L, "2018-08-01",      1607,
   2L, "2018-09-01",        694,
   2L, "2018-10-01",      4026,
   2L, "2018-11-01",       -176,
   2L, "2018-12-01",        -41,
   2L, "2019-01-01",        815,
   2L, "2019-02-01",      1743,
   2L, "2019-03-01",     -3433,
   2L, "2019-04-01",      4167,
   2L, "2019-05-01",      3792,
   2L, "2019-06-01",       -293,
   2L, "2019-07-01",     -4666,
   2L, "2019-08-01",        835,
   2L, "2019-09-01",      5434,
   2L, "2019-10-01",      4636,
   2L, "2019-11-01",      2731
  )

df$ds<-as.POSIXct(df$ds, format= '%Y-%m-%d')

现在，我所需要的是使用先知为每个ID绘制预测并记录ID，ds，yhat和y。

这是我使用dplyr尝试过的方法：

library(prophet)
library(dplyr)

plots = df %>%  
  group_by(ID) %>%
  do(predict(prophet(.,seasonality.mode = 'multiplicative'), make_future_dataframe(prophet(.,seasonality.mode = 'multiplicative'), periods = 18, freq = 'month'))) %>%
  do(plot(prophet(.,seasonality.mode = 'multiplicative'), predict(.,seasonality.mode = 'multiplicative', make_future_dataframe(m,periods= 18 ,freq='month')))) %>% 
  select(ds, ID, yhat, y)

但是当我这样做时，我得到了错误 fit.prophet（m，df，...）中的错误：数据框必须具有“ ds”和“ y”列，分别带有日期和值。

有人知道如何使用先知为每个ID绘图吗？我不知道plot如何在dplyr上工作，或者如何将其用于多个任务。谢谢！

使用dplyr和Facebook先知时间序列的不同情节

0 个答案: