#' 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")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.