library(plotly)
plt <- plot_ly(data = iris, x = ~Sepal.Length, y = ~Petal.Length, 
             type = "scatter", color=~iris$Species, mode='markers')