The following code will be run and the corresponding plot shown in the following slide:

data("ToothGrowth")
library(plotly)
i=c(1:60)
plot_ly(x=i,y=ToothGrowth$len,mode="markers",
        size=ToothGrowth$dose,color=ToothGrowth$supp)