# NOT RUN {
plot_data <- dplyr::sample_frac(ggplot2::diamonds, 0.05)
plot <- ggplot_scatter(data = plot_data, x_var = carat, y_var = price,
title = "Diamond price by carat",
x_title = "Carat",
y_title = "Price ($US thousands)")
plot
plotly::ggplotly(plot, tooltip = "text")
# }
Run the code above in your browser using DataLab