g2(penguins, asp(flipper_length_mm, body_mass_g, color = species)) %>%
fig_point(
asp(size = body_mass_g, shape = "circle"),
fillOpacity = .5,
stroke = 0
) %>%
fig_smooth() %>%
axis_title_x("Flipper Length (mm)") %>%
axis_title_y("Body Mass (gram)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.