r - ggplotly は、グリッド線を削除する呼び出しを尊重しません

Question

次のように、 ggplotly() を ggplot() とともに使用して、 gridlines のないファセット グラフを作成しようとしています。

library(ggplot2)
library(plotly)

p <- iris %>% 
  ggplot(aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point() +
  facet_wrap(~Species) +
  theme_bw() +
  theme(panel.grid = element_blank())

p

しかし、ggplotly を使用すると、グリッド線が残ります。

ggplotly(p) 

レイアウトへの呼び出しを使用してそれらを取り除こうとしても:

ggplotly(p) %>% layout(xaxis = list(automargin=TRUE, showgrid = F), 
                       yaxis = list(automargin=TRUE, showgrid = F),
                       margin = list(l = 100, b = 100))

ggplotly(p) %>% layout(xaxis = list(automargin=TRUE, gridcolor = "white"), 
                       yaxis = list(automargin=TRUE, gridcolor = "white"),
                       margin = list(l = 100, b = 100))

これはバグですか？どうすれば解決できますか？