library(plotly)
library(ggplot2)
plot1 <- ggplot(data = mtcars, aes(x=wt, y=mpg)) +
      geom_point(aes(color = factor(am))) +
      theme_light()
ggplotly(plot1)