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):

Beginne mit dem bereitgestellten R-Beispiel unter Verwendung von ggplot2 und ggplotly und verfolge anschließend, wie die Violin- und Boxplots konvertiert und gerendert werden. Bestätige das Problem, indem du die Ausgabe von ggplot und ggplotly vergleichst; abgeschlossen ist die Aufgabe, wenn der Boxplot im erwarteten Maß vor dem Violinplot erscheint.