ggplot color bar

cols_20.R

col20 = list("Red" = c("#e6194b", "(230, 25, 75)", "(0, 100, 66, 0)"), 
          "Green" = c("#3cb44b", "(60, 180, 75)", "(75, 0, 100, 0)"), 
          "Yellow" = c("#ffe119", "(255, 225, 25)", "(0, 25, 95, 0)"), 
          "Blue" = c("#0082c8", "(0, 130, 200)", "(100, 35, 0, 0)"), 
          "Orange" = c("#f58231" , "(245, 130, 48)", "(0, 60, 92, 0)"), 
          "Purple" = c("#911eb4" , "(145, 30, 180)", "(35, 70, 0, 0)"), 
          "Cyan" = c("#46f0f0" , "(70, 240, 240)", "(70, 0, 0, 0)"), 
          "Magenta" = c("#f032e6" , "(240, 50, 230)", "(0, 100, 0, 0)"), 
          "Lime" = c("#d2f53c" , "(210, 245, 60)", "(35, 0, 100, 0)"), 
          "Pink" = c("#fabebe" , "(250, 190, 190)", "(0, 30, 15, 0)"), 
          "Teal" = c("#008080" , "(0, 128, 128)", "(100, 0, 0, 50)"), 
          "Lavender" = c("#e6beff" , "(230, 190, 255)", "(10, 25, 0, 0)"), 
          "Brown" = c("#aa6e28" , "(170, 110, 40)", "(0, 35, 75, 33)"), 
          "Beige" = c("#fffac8" , "(255, 250, 200)", "(5, 10, 30, 0)"), 
          "Maroon" = c("#800000" , "(128, 0, 0)", "(0, 100, 100, 50)"), 
          "Mint" = c("#aaffc3" , "(170, 255, 195)", "(33, 0, 23, 0)"), 
          "Olive" = c("#808000" , "(128, 128, 0)", "(0, 0, 100, 50)"), 
          "Coral" = c("#ffd8b1" , "(255, 215, 180)", "(0, 15, 30, 0)"), 
          "Navy" = c("#000080" , "(0, 0, 128)", "(100, 100, 0, 50)"), 
          "Grey" = c("#808080" , "(128, 128, 128)", "(0, 0, 0, 50)"), 
          "White" = c("#FFFFFF" , "(255, 255, 255)", "(0, 0, 0, 0)"), 
          "Black" = c("#000000" , "(0, 0, 0)", "(0, 0, 0, 100)"))

squish_scales.R

library(scales)
and later

scale_fill_gradient(low = "red", high = "green", limits=c(0.6, 1), oob=squish)