library(plotly)
plot_ly(x=mtcars$hp,y=mtcars$mpg, color=as.factor(mtcars$cyl))