Quarto-1

penguins |>
  ggplot(aes(
    x = body_mass_g,
    y = flipper_length_mm,
    color = species
  )) +
  geom_point() +
  labs(title = "Penguins Body Mass compared to Flipper Length",
       x = "Body Mass",
       y = "Flipper Length")

Warning: Removed 2 rows containing missing values or values outside the scale range
(`geom_point()`).