Welcome 🎨

This presentation shows an interactive Plotly plot and includes the creation date above 👆.
Use your mouse to zoom, hover, and explore!


# Create a simple interactive Plotly plot
data <- mtcars
p <- plot_ly(
  data, 
  x = ~wt, 
  y = ~mpg, 
  type = 'scatter', 
  mode = 'markers',
  color = ~as.factor(cyl),
  marker = list(size = 10)
) %>%
  layout(
    title = "Miles per Gallon vs Weight",
    xaxis = list(title = "Weight (1000 lbs)"),
    yaxis = list(title = "Miles per Gallon"),
    legend = list(title = list(text = "Cylinders"))
  )
p