R/colors.R

In josschavezf/erba: erba: Expression Regulators from Bacteria and Archaea

# In order to maintain homogenity among graphs, we manually asigned a specific color for each
# phylogenetic group, also for repressors and activators.

#' @export
colors_groups<- c("#ce2e0a",
                  "#c17305",
                  "#edcb0e",
                  "#08a80b",
                  "#28547f",
                  "#74f441" ,
                  "#63aded",
                  "#a745d1",
                  "#efacec",
                  "#f441c7")
#' @export
colors_groups2<- c("Actinobacteria" = "#ce2e0a",
                   "Bacteroidetes" = "#c17305",
                   "Chlamydiae" = "#edcb0e",
                   "Euryarchaeota" = "#08a80b",
                   "Firmicutes" = "#28547f",
                   "Planctomycetes" = "#74f441" ,
                   "Proteobacteria" = "#63aded",
                   "Spirochaetes" = "#a745d1",
                   "Tenericutes" = "#efacec",
                   "Verrucomicrobia" = "#f441c7",
                   "Crenarchaeota" =  "#fc6e1c"
                   )
#' @export
colors_represor_activator <- c("non_repressor" = "#c1052e", "repressor" = "#0f2396")
#' @export
colors_represor_activator_ribo <- c("activator" = "#c1052e", "repressor" = "#0f2396")
#' @export
shape_repressor_activator <- c("activator" = 17, "repressor" = 25)

#' @export
colors_total <- c("[0,10]" = "#8c0202", "(10,20]" =  "#d80404", "(20,30]" = "#db5520",
                   "(30,40]" = "#e08f1d", "(40,50]" = "#c19015", "(50,60]" = "#dbd84e",
                   "(60,70]" = "#aac115", "(70,80]" = "#7cc115", "(80,90]" = "#1ac115",
                   "(90,100]" = "#088924", "(100,110]" = "#15c1b8", "(110,120]" = "#74e8f7",
                   "(120,130]" = "#156bc1", "(130,140]" = "#3d15c1", "(140,150]" = "#7c15c1",
                  "(150,160]" = "#aa68ed", "(160,170]" = "#c115be", "(170,180]" = "#eda6c7",
                    "(180,190]" = "#ed68df",
                  "(190,200]" = "#bc1061")