# Create a sample Plotly plot
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

plot_ly(data, x = ~x, y = ~y, type = 'scatter', mode = 'markers')