Hello plotly

library(plotly)
data(cars)
plot_ly(x= cars$speed, y= cars$dist, mode = "markers")