Interactive Scatter Plot scatter_plot <- plot_ly(data = ficus, x = ~Petal_length, y = ~Petal_width, color = ~Species, type = 'scatter', mode = 'markers') %>% layout(title = "Interactive Scatter Plot of Petal Dimensions", xaxis = list(title = "Petal Length"), yaxis = list(title = "Petal Width"), legend = list(orientation = "h", y = -0.3), showlegend = TRUE) scatter_plot