Simply plotly with mtcars

plot_ly(mtcars, x = ~wt, y = ~mpg, color = ~cyl,  size = ~disp, type = "scatter", mode = "markers", text = paste(row.names(mtcars), "<br> disp:", mtcars$disp))

## Warning in arrange_impl(.data, dots): '.Random.seed' is not an integer
## vector but of type 'NULL', so ignored