Quarto 1

penguins |>
  drop_na() |>
  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")