如何使用R在groupby Prophet预测中添加自定义季节性

我目前一直在尝试使用R在分组管道操作中添加一些自定义季节性

以下是我当前数据的模型：

ds <- as.Date(c('2016-11-01','2016-11-02','2016-11-03','2016-11-04',
                '2016-11-05','2016-11-06','2016-11-07','2016-11-08',
                '2016-11-09','2016-11-10','2016-11-11','2016-11-12',
                '2016-11-13','2016-11-14','2016-11-15','2016-11-16',
                '2016-11-17','2016-11-18','2016-11-19','2016-11-20',
                '2016-11-21','2016-11-22','2016-11-23','2016-11-24',
                '2016-11-25','2016-11-26','2016-11-27','2016-11-28',
                '2016-11-29','2016-11-30',


                '2016-11-01','2016-11-02','2016-11-03','2016-11-04',
                '2016-11-05','2016-11-06','2016-11-07','2016-11-08',
                '2016-11-09','2016-11-10','2016-11-11','2016-11-12',
                '2016-11-13','2016-11-14','2016-11-15','2016-11-16',
                '2016-11-17','2016-11-18','2016-11-19','2016-11-20',
                '2016-11-21','2016-11-22','2016-11-23','2016-11-24',
                '2016-11-25','2016-11-26','2016-11-27','2016-11-28',
                '2016-11-29','2016-11-30'))
y <- c(15,17,18,19,20,54,67,23,12,34,12,78,34,12,3,45,67,89,12,111,123,112,14,566,345,123,567,56,87,90,
       45,23,12,10,21,34,12,45,12,44,87,45,32,67,1,57,87,99,33,234,456,123,89,333,411,232,455,55,90,21)
y<-as.numeric(y)

some_group<-c("A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
         "A","A","A","A","A","A","A","A","A","A","A","A","A","A","A",
         "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
         "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B")

df <- data.frame(ds,some_group, y)

我目前在R中的实现工作正常。但是，我缺少代码中的一部分，在该部分中，我可以添加一些定制季节性，如项目页面中关于定制季节性规范的规定

以下是我当前的实现

df2 <- df %>% 
  group_by(some_group) %>% 
  do(predict(prophet(., 
                     holidays = custom_events,
                     yearly.seasonality = FALSE,
                     weekly.seasonality = FALSE,
                     daily.seasonality = FALSE), # missing custom seasonality
             make_future_dataframe(prophet(.,
                                           holidays = events,
                                           yearly.seasonality = FALSE,
                                           weekly.seasonality = FALSE,
                                           daily.seasonality = FALSE), 
                                   periods = 30*7))) %>%
  select(ds, some_group, yhat)

df2%
分组依据（某些分组）%>%
做预言。，
假日=定制活动，
年度。季节性=假，
每周。季节性=假，
daily.季节性=FALSE），#缺少自定义季节性
生成未来数据帧（prophet（.）。，
假日=活动，
年度。季节性=假，
每周。季节性=假，
每日。季节性=假），
期间=30*7））%>%
选择（ds、某些组、yhat）

如何在此管道操作中添加自定义季节性

df2 <- df %>% 
  group_by(some_group) %>% 
  do(predict(prophet(., 
                     holidays = custom_events,
                     yearly.seasonality = FALSE,
                     weekly.seasonality = FALSE,
                     daily.seasonality = FALSE), # missing custom seasonality
             make_future_dataframe(prophet(.,
                                           holidays = events,
                                           yearly.seasonality = FALSE,
                                           weekly.seasonality = FALSE,
                                           daily.seasonality = FALSE), 
                                   periods = 30*7))) %>%
  select(ds, some_group, yhat)