penguins_colour_demo.R

library(tidyverse)

my_penguins_plot <-
  palmerpenguins::penguins %>% 
  filter(!is.na(sex)) %>% 
  ggplot() +
  aes(bill_length_mm, body_mass_g, col = species) +
  geom_point(size = 5, alpha = 0.85) +
  theme_minimal(base_size = 16, base_family = "Source Sans Pro") +
  labs(x = "Bill length (mm)",
       y  = "Penguins weights (g)",
       title = "Penguins from the Palmer Achipelago",
       color = "Species")

my_penguins_plot