R/SCAVENGE_color.R

In sankaranlab/SCAVENGE: Identifying genetic trait/phenotype relevant cell type/state at single cell resolution

# DISCLOSURE: This is a collection of palettes that includes some original
# palettes and some palettes originally implemented by others in other packages.
blackbright = c("#090214", "#300f51", "#842152", "#b43033", "#e3551e",
                "#f5a31c", "#e1c53f", "#eef174")
black_yellow_red <- c("#393A3C", "#757374", "#E9B851", "#E98D2B",
                      "#E5493A", "#B23227")
Jasminium_polyanthum_A <- c("#f7fcfe", "#fef5f9", "#fad5e5", "#f8bdd7",
                            "#d35c95", "#af2963", "#821434", "#45101b",
                            "#230c11")
Jasminium_polyanthum_B <- c("#dde2e6", "#e3dce0", "#e7c5d5", "#f8bdd7",
                            "#d35c95", "#af2963", "#821434", "#45101b",
                            "#230c11")
Photinia_fraseri_A <- c("#57612f", "#b5b335", "#cecc2a", "#f8f39e", "#fdfadd",
                        "#f7a9a8", "#ea7e57", "#d46d2a", "#7c2717")
Photinia_fraseri_B <- c("#57612f", "#b5b335", "#cecc2a", "#f8f39e", "#fdfadd",
                        "#fddedb", "#f7a9a8", "#e54e4d", "#a32122")
Iris <- c("#B0A1AF", "#441F26", "#7D56AA", "#A176CF", "#DF9418", "#E5C252")
Unnamed <- c("#B0A1AF", "#371410", "#BD3B26", "#EA7B24", "#EEEA88")
#10-colors
horizon = c('#000075','#2E00FF', '#9408F7', '#C729D6', '#FA4AB5', '#FF6A95',
            '#FF8B74', '#FFAC53', '#FFCD32', '#FFFF60')
#9-colors
horizonExtra = c("#000436", "#021EA9", "#1632FB", "#6E34FC", "#C732D5",
                 "#FD619D", "#FF9965", "#FFD32B", "#FFFC5A")
blueYellow = c("#352A86", "#343DAE", "#0262E0", "#1389D2", "#2DB7A3",
               "#A5BE6A", "#F8BA43", "#F6DA23", "#F8FA0D")
sambaNight = c('#1873CC','#1798E5','#00BFFF','#4AC596','#00CC00','#A2E700',
               '#FFFF00','#FFD200','#FFA500') #buencolors
solarExtra = c('#3361A5', '#248AF3', '#14B3FF', '#88CEEF', '#C1D5DC',
               '#EAD397', '#FDB31A', "2"= '#E42A2A', "2"= '#E42A2A',
               '#A31D1D', '#A31D1D') #buencolors
comet = c("#E6E7E8", "#3A97FF", "#8816A7", "black")
viridis = c("#440154FF", "#472D7BFF", "#3B528BFF", "#2C728EFF",
            "#21908CFF", "#27AD81FF", "#5DC863FF", "#AADC32FF", "#FDE725FF")
viridis2 <- c("#440154FF", "#440154FF", "#440154FF", "#482173FF",
              "#482173FF", "#433E85FF", "#433E85FF", "#38598CFF",
              "#2D708EFF", "#25858EFF", "#1E9B8AFF", "#2BB07FFF",
              "#51C56AFF", "#85D54AFF", "#C2DF23FF", "#FDE725FF")
# discrete
# 21
cols =c("#589400", "#008044", "#005c3b", "#d95698", "#900046", "#836e00",
        "#2c86ef", "#059876", "#7e21d4", "#b12900", "#ce694c", "#842039",
        "#e30059", "#006281", "#0a30c6", "#af7b3c", "#ec496d", "#df00cf",
        "#82849b", "#256e00", "#b8005c")
# 25
cols2=c("#d8b7ec", "#349615", "#6b30b7", "#adcc25", "#2347ba", "#2ecf6b",
        "#db1d9d", "#85d6a8", "#966ef7", "#dc960f", "#307ce2", "#e5bc54",
        "#2d6da9", "#f33d45", "#267e68", "#b30c2f", "#b2d187", "#f87cd7",
        "#b45c0c", "#dc90e9", "#c89b74", "#a61b62", "#f67c71", "#653c69",
        "#925158")
cols31=c("#7295e3", "#62b93c", "#b05cd3", "#47b65d", "#cd4dad", "#b8b939",
         "#636ad9", "#df9529", "#814ea3", "#618929", "#da417f", "#52c297",
         "#dc404f", "#42c0c7", "#d8592c", "#50a4d3", "#ae392f", "#2f856a",
         "#c58cd5", "#8eba6e", "#9b4577", "#3d7f46", "#de81ac", "#9d8428",
         "#5767a8", "#e18f5c", "#6b6e2e", "#e37f7d", "#c9ab69", "#a64e5a",
         "#9b5d2d")