gcamchartr: GCAM Charting

# Constant colors to use for plotting

PRIMARY_ENERGY_COLORS <- c(Oil = "red4", `Oil CCS` = "red", `Natural Gas` = "dodgerblue4", `Natural Gas CCS` = "dodgerblue",
                           Coal = "maroon4", `Coal CCS` = "maroon1", Biomass = "green4", `Biomass CCS` = "green",
                           `Regional Corn For Ethanol CCS` = "gray50", Nuclear = "darkorange", `Hydro` = "cyan",
                           Solar ="gold", Wind = "orchid1", Geothermal = "saddlebrown", `Traditional Biomass` = "black")

ELEC_GEN_COLORS <- c(Oil = "red4", `Oil w/ CCS` = "red", `Gas` = "dodgerblue4", `Gas w/ CCS` = "dodgerblue",
                           Coal = "maroon4", `Coal w/ CCS` = "maroon1", Biomass = "green4", `Biomass w/ CCS` = "green",
                           Nuclear = "darkorange", `Hydro` = "cyan", Solar ="gold",
                           Wind = "orchid1", Geothermal = "saddlebrown", `H2 CHP` = "black")

TRANSPORT_COLORS <- c(Liquids = "firebrick4", `Hybrid Liquids` = "firebrick1", NG = "dodgerblue", BEV = "gold", FCEV = "darkorchid")

REFINED_LIQUIDS_COLORS <- c(Oil = "red4", `Natural Gas` = "dodgerblue", Coal = "maroon4",
                            `Coal CCS` = "maroon1", Biomass = "green4", `Biomass CCS` = "green")

FINAL_ENERGY_COLORS <- c(`Refined Liquids` = "firebrick4", `Natural Gas (wholesale)` = "dodgerblue",`Natural Gas (delivered)` = "dodgerblue",
                         `Coal (delivered)` = "lightgoldenrod4", `Biomass (delivered)` = "green4",`Traditional Biomass` = "saddlebrown",
                         Electricity = "gold", Hydrogen = "darkorchid", `District Heat` = "black")

GAS_PROC_COLORS <- c(`coal gasification` = "lightgoldenrod4", `natural gas` = "dodgerblue", `biomass gasification` = "green4")

LAND_COLORS <- c(`Forest (unmanaged)` = "saddlebrown", `Forest (managed)` = "sandybrown",
                 `Pasture (other)` = "green4", `Pasture (grazed)` = "green",
                 Desert = "khaki", Grass = "firebrick", Shrubs = "darkviolet",Crops = "dodgerblue3",
                 Biomass = "gold", OtherArable = "deeppink3", Urban = "black", Tundra = 'turquoise')

SERVICE_OUTPUT_COLORS <- c(`Refined Liquids` = "firebrick4", `Gas` = "dodgerblue",
                         `Coal` = "lightgoldenrod4", `Biomass` = "green4",`Traditional Biomass` = "saddlebrown",
                         Electricity = "gold", Hydrogen = "darkorchid", `District Heat` = "black")