R/paleta_cor.R

In italocegatta/suzano:

#' Cor padrao da Suzano
#'
#' @export
sz_azul <- function() {
  "#1F5892"
}


#' Cores para UNFs
#'
#' @export
sz_cor_unf <- function() {
  c("BA" = "#a1d99b", "SP" = "#9ecae1", "MA" = "#fec44f")
}


#' Cores para zonas climaticas
#'
#' @export
sz_cor_zona <- function(){
  c(
    "S1" = "#2d56b5", "S2" = "#0EC441", "S3" = "#C2523C",
    "T1" = "#2d56b5", "T2" = "#0EC441", "T3" = "#C2523C",
    # "B1" = "#2d56b5","B2" = "#99d594","B3" = "#fc8d59", "B4" = "#d53e4f",
    "B1" = "#2d56b5", "B2" = "#10c23f","B3" = "#f5d507", "B4" = "#c2503c", "B5" = "#851d00",
    "M1" = "#2d56b5", "M2" = "#20998F", "M3" = "#0EC441", "M4" = "#FFFF00", "M5" = "#EDA113", "M6" = "#C2523C"
  )
}

#' Cores para macroambientes
#'
#' @export
sz_cor_macroambiente <- c(
  "Cerrado"   = "#fe9929",
  "Baixada"   = "#4292c6",
  "Transição" = "#41ab5d",
  "Chapada"   = "#08519c"
)

#' Cores para ambientes
#'
#' @export
sz_cor_ambiente <- c(
  "B1-am-[00]"   = "#8DD3C7", "B1-r-[01]"   = "#FFFFB3",
  "B1B3-am-[28]" = "#BEBADA", "B2-am-[00]"  = "#FB8072",
  "B2-am-[11]"   = "#80B1D3", "B2B3-r-[01]" = "#FDB462",
  "B3-am-[00]"   = "#B3DE69", "B3-am-[11]"  = "#FCCDE5",
  "B4-am-[29]"   = "#D9D9D9", "B4-amr-[01]" = "#BC80BD", "B5-am-[03]" = "#CCEBC5",

  "B1-am-[00]"   = "#8DD3C7", "B1-r-[01]"  = "#FFFFB3",
  "B1B3-am-[28]" = "#BEBADA", "B2-am-[00]" = "#FB8072",
  "B2B3-r-[01]"  = "#FDB462", "B3-am-[00]" = "#B3DE69",
  "B3-am-[11]"   = "#FCCDE5", "B4-am-[29]" = "#D9D9D9",
  "B4-amr-[01]"  = "#BC80BD", "B5-am-[03]" = "#CCEBC5",

  "M1M2-am-[00]"  = "#8DD3C7", "M1M2-am-[11]" = "#FFFFB3",
  "M1M2-amr-[24]" = "#BEBADA", "M3M5-a-[24]"  = "#FB8072",
  "M3M5-am-[00]"  = "#80B1D3", "M3M5-am-[11]" = "#FDB462",
  "M3M5-m-[24]"   = "#B3DE69", "M3M5-r-[01]"  = "#FCCDE5",
  "M3M5-r-[24]"   = "#D9D9D9", "M6-amr-[13]"  = "#BC80BD",

  "T1-m-[35]"   = "#8DD3C7", "T1-r-[24]"  = "#FFFFB3",
  "T2-m-[23]"   = "#BEBADA", "T2-m-[45]"  = "#FB8072",
  "T2T3-r-[24]" = "#80B1D3", "T3-am-[24]" =  "#FDB462",

  "S1-a-[69]" = "#8DD3C7", "S1-mr-[69]" = "#FFFFB3",
  "S2-a-[59]" = "#BEBADA", "S2-m-[59]"  = "#FB8072",
  "S2-r-[59]" = "#80B1D3", "S3-am-[48]" = "#FDB462", "S3-r-[48]" = "#B3DE69"
)

#' Cores para regioes melhoramento
#'
#' @export
sz_cor_rm_descricao <- c(
  "Clima B1B2 baixa"     = "#08519c",
  "Clima B1B2B3 arenosa" = "#4292c6",
  "Clima B2B3 alta"      = "#006d2c",
  "Clima B3 baixa"       = "#41ab5d",
  "Clima B4B5"           = "#fe9929",

  "Baixada"   = "#41ab5d",
  "Cerrado"   = "#fe9929",
  "Chapada"   = "#08519c",
  "Transicao" = "#006d2c",

  "Clima S1"          = "#08519c",
  "Clima S2 argilosa" = "#006d2c",
  "Clima S2 media"    = "#41ab5d",
  "Clima S3"          = "#fe9929",

  "Clima T1"           = "#08519c",
  "Clima T2 media"     = "#006d2c",
  "Clima T2T3 arenosa" = "#41ab5d",
  "Clima T3 media"     = "#fe9929"
)

# Auxiliar para legendas
ordem_rm <- list(
  BA = c("Clima B1B2 baixa", "Clima B1B2B3 arenosa", "Clima B2B3 alta", "Clima B3 baixa", "Clima B4B5"),
  ES = c("Clima B1B2 baixa", "Clima B1B2B3 arenosa", "Clima B2B3 alta", "Clima B3 baixa", "Clima B4B5"),
  MA = c("Chapada", "Transicao", "Baixada", "Cerrado"),
  SP = c("Clima S1", "Clima S2 argilosa", "Clima S2 media" , "Clima S3"),
  MS = c("Clima T1", "Clima T2 media", "Clima T2T3 arenosa", "Clima T3 media")
)