r - 如何使用 plotly 以交互方式生成自动绘图

Question

我有以下代码用于使用该fpp3包进行一些预测的情节。

library(fpp3)

accidental_deaths <- as_tsibble(USAccDeaths) 

plot <- accidental_deaths %>% 
  model(ETS(value)) %>% 
  forecast() %>% 
  autoplot(accidental_deaths, level = seq(50, 95, by = 5))

我有兴趣使用plotly. 但是，当我尝试这样做时

library(plotly)

plot %>% ggplotly()

我收到以下警告，支持预测风扇的 geom 未在plotly

Warning messages:
1: In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_GeomHiloRibbon() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues
2: In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
  geom_() has yet to be implemented in plotly.
  If you'd like to see this geom implemented,
  Please open an issue with your example code at
  https://github.com/ropensci/plotly/issues

是否有任何可能的解决方法来交互式生成绘图？