test_that("Scatter plot", {
data <- lubridate::lakers |> tidyr::drop_na(x, y)
gg_scatter(data = data, dic = NULL, vars = c("x", "y"))
gg_scatter(data = data, dic = NULL, vars = c("x", "y", "team"), color_by = "team")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.