Implement geom_bar_pattern in plotly?

The use of geom_bar_pattern appears to be incompatible with plotly. The below graph will print in standard format but fail to print with ggplotly.

plot <- ggplot(mtcars, aes(x=factor(cyl), y=mpg))+
  geom_bar_pattern(aes(y=mpg, pattern=factor(vs)), stat="summary", width=0.5, position=position_dodge(0.7))
   
print(plot)
plotly::ggplotly(plot)

提供されている R の例を ggplot2::geom_bar_pattern と plotly::ggplotly(plot) を使って開始し、その後、このプロット種別がどのように変換されるかを追跡します。完了条件は、Issue に示されているパターン付きバーと position dodge の動作を維持したまま、mtcars の例が失敗せずに ggplotly 経由でレンダリングされることです。