Quarto 1

penguins |>
  ggplot(mapping = 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 (`geom_point()`).