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