Quarto 1

library(tidyverse)
library(palmerpenguins)

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")