x <- 1:20
y <- 2*log(x)
z  <- 3*y

mydataset <- data.frame(x, y, z)

summary(mydataset)

##        x               y               z        
##  Min.   : 1.00   Min.   :0.000   Min.   : 0.00  
##  1st Qu.: 5.75   1st Qu.:3.492   1st Qu.:10.48  
##  Median :10.50   Median :4.700   Median :14.10  
##  Mean   :10.50   Mean   :4.234   Mean   :12.70  
##  3rd Qu.:15.25   3rd Qu.:5.448   3rd Qu.:16.35  
##  Max.   :20.00   Max.   :5.991   Max.   :17.97

library(plotly)
plot_ly(mydataset, x = ~x, y= ~y, size = ~z, type = "scatter")