Here's the plot:

library(ggplot2)
library(plotly)
plot_ly(data=mtcars, x=~wt, y=~mpg, mode="markers")