Penguins

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()`).