Color/fill functions for ggplot2 with my palette

Palette

my_scale_color_discrete <- function(n)
{
  pal <- scales::colour_ramp(c("#192440", "#F05440"))
  
  seq(0, 1, length.out = n) %>%
    lapply(pal) %>%
    unlist -> values
  
  scale_color_manual(values = values, na.value = "#D2D2D2")
}

my_scale_fill_discrete <- function(n)
{
  pal <- scales::colour_ramp(c("#192440", "#F05440"))
  
  seq(0, 1, length.out = n) %>%
    lapply(pal) %>%
    unlist -> values
  
  scale_fill_manual(values = values, na.value = "#D2D2D2")
}

my_scale_color_continuous <- function()
{
  pal <- scales::colour_ramp(c("#192440", "#F05440"))
  
  scale_color_continuous(low = pal(0), high = pal(1), na.value = "#D2D2D2")
}

my_scale_fill_continuous <- function()
{
  pal <- scales::colour_ramp(c("#192440", "#F05440"))
  
  scale_fill_continuous(low = pal(0), high = pal(1), na.value = "#D2D2D2")
}