unexpected results using ggplotly and geom_dotplot()

Hello! Thank you so much for your work on this great package.

I am having some trouble getting dot plots to work with plotly. For example, take a look at the following example from the documentation for geom_dotplot().

library(ggplot2)

p <- ggplot(mtcars, aes(x = factor(cyl), y = mpg)) +
  geom_dotplot(binaxis = "y", stackdir = "center")

p
#> `stat_bindot()` using `bins = 30`. Pick better value with `binwidth`.

Created on 2018-03-07 by the reprex package (v0.2.0).

When I then try to render this with plotly:

library(plotly)
ggplotly(p)

I get a blank plot.

I am getting lots of weird problems like this with my real data as well.

Bắt đầu với ví dụ R có thể tái hiện trong issue, sử dụng geom_dotplot() của ggplot2 và ggplotly() của plotly để so sánh biểu đồ nguồn với đầu ra trống. Được xem là hoàn thành khi biểu đồ chấm được cung cấp render chính xác thông qua ggplotly; không xác định tệp nào trong repository hoặc test nào trong báo cáo.