library(plotly) p <- plot_ly (x = rnorm(1000), y = rnorm(1000), type = 'scatter', mode = 'markers') p