#By Tobias Stalder #August 2020 library(scales) eco_river_pal <- c("#d0ece7", "#a9dfbf", "#73c6b6", "#27ae60", "#117a65", "#145a32") show_col(eco_river_pal, borders = NA)