quarto1

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