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