Quarto 1

Author

Karla Gutiérrez Ramírez

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

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