Jitterdodge is it possible?

I am trying to find a way to reproduce this example http://ggplot2.tidyverse.org/reference/position_jitterdodge.html using plotly in R

For the moment if I use ggplotly and remove the geom_boxplot then it looks about all right
otherwise, the box plot don’t dodge each other.
Ideally, I would like to find a version without ggplot and keeping the boxplot if possible.