col discrete scale about ggblanket HOT 4 CLOSED

library(tidyverse)
library(palmerpenguins)

breaks <- c("Chinstrap", "Adelie", "Another one", "Gentoo")
values <- c("green", "blue", "pink", "red")
pal_df <- tibble::tibble(breaks, values)

p <- penguins %>%
  mutate(species = as.character(species)) %>% 
  ggplot() +
  geom_point(aes(flipper_length_mm, body_mass_g, col = species)) 

p +
  scale_color_manual(values = pal_df$values, 
                     breaks = pal_df$breaks,
                     limits = pal_df$breaks
                     )

p <- penguins %>%
  mutate(species = as.character(species)) %>% 
  ggplot() +
  geom_point(aes(flipper_length_mm, body_mass_g, col = body_mass_g)) 


breaks <- pretty(penguins$body_mass_g, 2)

p +
  scale_color_gradientn(colors = viridis::viridis(100),
                        breaks = breaks,
                        limits = c(min(breaks), max(breaks))
                        )