GGfan support

Please briefly describe your problem and what output you expect. If you have a question, please don't use this form, but instead ask on the community forum http://community.plot.ly/c/api/r or stackoverflow http://stackoverflow.com.

Please include a minimal reprex. The goal of a reprex is to make it as easy as possible for me to recreate your problem so that I can fix it. If you've never heard of a reprex before, start by reading https://github.com/tidyverse/reprex#readme, and follow the advice further down the page. Do NOT include session info unless it's explicitly asked for, or you've used reprex::reprex(..., si = TRUE) to hide it away.

Delete these instructions once you have read them.

Brief description of the problem

Hi, please could I request plotly support for the ggfan package.

I'm trying to build a plotly with ggfan and i get the following error:
Warning in geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
geom_GeomIntervalPoly() 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

insert reprex here

library(shiny)
library(shinytableau)
library(promises)
library(shinyvalidate)
library(ggplot2)
library(ggfan)
library(plotly)

p<- ggplot(test, aes(x=tick, y=value))+
geom_fan(intervals = c(0.2,0.5, 0.8, 0.95))+
scale_fill_steps(low = "#EF4A81",
high = "#fcdbe6",
guide = "colourbar",
aesthetics = "fill")

ggplotly(p)

test.csv

首先使用链接的 test.csv 重现提供的 ggfan 示例，并检查针对 GeomIntervalPoly 的 geom2trace.default 警告。确定 plotly.R 在哪里处理 ggplot geoms，以及 ggfan geom 应该生成什么输出。当 ggplotly(p) 支持 geom_fan 且不再出现未实现 geom 的警告时，即视为完成。