# Color set ---------------------------------------------------------------

# General categories
color_cats <- c("#bcc8cc","#E84646","#65ADC2","#556c74", "#233B43")
names(color_cats) <- c("NC","EU","GU","KWP","K")
color_cats_order <- c("NC","EU","GU","KWP","K")

color_cats_long <- c("#bcc8cc","#E84646","#65ADC2","#556c74", "#233B43")
names(color_cats_long) <- c("NC","Environmental unknowns","Genomic unknowns","KWP","Knowns")
color_cats_order_long <- c("NC","Environmental unknowns","Genomic unknowns","KWP","Knowns")

# Combined categories I
color_comb_cats_I <- c("#22B2DA","#555A60")
names(color_comb_cats_I) <- c("Known", "Unknown")
# Combined categories II
color_comb_cats_II <- c()
names(color_comb_cats_II) <- c()

# MG projects
# TARA
color_tara_filter <- c("#C6BE8B", "#25403B","#35A8BE")
names(color_tara_filter) <- c("Girus/A|B-enriched", "Virus-enriched","A|B-enriched")
# HMP
color_body_site <- c('#785d37', '#62bba5', '#ffb84d', '#aaa488', '#b2432f')
names(color_body_site) <- c("Gastrointestinal tract", "Oral", "Airways", "Urogenital tract", "Skin")

# Biomes
color_biome <- c("#E2AD70", "#158495")
names(color_biome) <- c("Human", "Marine")

# Quadrants
color_quad <- c("#F56492", "#55118C" ,"#000000")
names(color_quad) <- c("First", "Second", "Other")

# Tn-Seq genes
gene_colors <- c("#00A0B0", "#6A4A3C", "#CC333F", "#EB6841", "#EDC951", "#404040")
names(gene_colors) <- c("gu_c_12103", "30S ribosomal protein S6", "30S ribosomal protein S18", "50S ribosomal protein L9", "replicative DNA helicase", "OTHER")

cls_colors <- c("#E85A5B", "#9BC53D", "#5BC0EB", "#FDE74C", "#FA7921")
names(cls_colors) <- c("19737823", "33926928", "30027162", "30592801", "37803210")

# Colors for the Pfam aa coverage treemaps
pfam_aa_coverage_colors <- c("#CC6677", "#44AA99")
names(pfam_aa_coverage_colors) <- c("pfam_covered_aa", "pfam_not_covered_aa")