library(plotly)
p <- plot_ly(iris, x= ~Petal.Length, y= ~Petal.Width, type="scatter", mode = "markers" , color = ~Species , marker=list( size=20 , opacity=0.5))
p