Some geoms always appear below others

Rendering of violin plots with box plots (to provide median & stddev) is in wrong order when using ggplotly.

library(ggplot2)
library(plotly)

p <- ggplot(iris,aes(Species,Sepal.Length))+
  geom_violin()+geom_boxplot(width=.1)
q <- ggplotly(p) 

the ggplot (p) will render as expected with violin plots:

the ggplotly (q) will render with the box plot behind the violin plot (and larger than expected):

先使用提供的 R 範例搭配 ggplot2 和 ggplotly，接著追蹤小提琴圖與箱型圖如何轉換及繪製。比較 ggplot 和 ggplotly 的輸出以確認問題；當箱型圖以預期的大小顯示在小提琴圖前方時，即表示完成。