This is an R Markdown presentation which will source data from the Mycars dataset and produce and interactive plot using Plotly.

library(plotly)

plot_ly( mtcars, x = ~hp, y = ~mpg, mode = "markers", size = ~wt, 
         color = ~cyl ) %>%
        layout( title = "Scatter Chart of Car Horsepower vs MPG ")