plot <- plot_ly(mtcars, x = ~wt, y = ~mpg, type = "scatter", 
                color = ~factor(cyl), size = ~hp)