#
# Atlas do Estado - site/grafico
#
# Criacao de grafico: Distribuicao dos vinculos no setor ublico, por raça, por UF e regiao
#
# "Com base nos dados disponiveis na RAIS imputada, criar linhas com totais de vinculos
# no setor publico por raça, por UF e por grandes regioes.
#
# Criar ‘botoes’ que permitam alternar entre numero absoluto e percentual. "
#
# Em plotly
#
# Criacao: 03/2023
#
# Autora: Milena Reis
# pacotes ----------------------------------------------------------------------
library(dplyr)
library(plotly)
library(quantmod)
library(htmlwidgets)
# dados ------------------------------------------------------------------------
dados_uf = read.csv(
"C:/Users/B14578742709/Desktop/Atlas_Estado/dados/vinculos_uf_raca_esfera_setorpublico.csv")
dados_reg = read.csv(
"C:/Users/B14578742709/Desktop/Atlas_Estado/dados/vinculos_regiao_raca_esfera_setorpublico.csv")
#criar coluna com nome da uf
dados_uf = dados_uf %>%
mutate(nome_uf = case_when(
uf == "PB" ~ "Paraíba",
uf == "SC" ~ "Santa Catarina",
uf == "MS" ~ "Mato Grosso do Sul",
uf == "RN" ~ "Rio Grande do Norte",
uf == "MG" ~ "Minas Gerais",
uf == "AL" ~ "Alagoas",
uf == "RJ" ~ "Rio de Janeiro",
uf == "PE" ~ "Pernambuco",
uf == "TO" ~ "Tocantins",
uf == "PI" ~ "Piauí",
uf == "PA" ~ "Pará",
uf == "AP" ~ "Amapá",
uf == "BA" ~ "Bahia",
uf == "SE" ~ "Sergipe",
uf == "GO" ~ "Goiás",
uf == "MA" ~ "Maranhão",
uf == "RO" ~ "Rondônia",
uf == "RR" ~ "Roraima",
uf == "PR" ~ "Paraná",
uf == "AC" ~ "Acre",
uf == "SP" ~ "São Paulo",
uf == "CE" ~ "Ceará",
uf == "RS" ~ "Rio Grande do Sul",
uf == "AM" ~ "Amazonas",
uf == "DF" ~ "Distrito Federal",
uf == "ES" ~ "Espírito Santo",
uf == "MT" ~ "Mato Grosso"
))
#criar coluna com nome da regiao
dados_reg = dados_reg %>%
mutate(nome_regiao = case_when(
codreg == 1 ~ "Norte",
codreg == 2 ~ "Nordeste",
codreg == 3 ~ "Sudeste",
codreg == 4 ~ "Sul",
codreg == 5 ~ "Centro-Oeste",
TRUE ~ NA_character_
))
# tirando a esfera
## regiao
dados_reg_semesfera = dados_reg %>%
group_by(ano, codreg, nome_regiao, raca_ou_cor, descricao_raca_ou_cor) %>%
summarise(total = sum(soma_total))
## uf
dados_uf_semesfera = dados_uf %>%
group_by(ano, uf, nome_uf, raca_ou_cor, descricao_raca_ou_cor) %>%
summarise(total = sum(soma_total))
# calculando total sem raca para fazer o valor da proporcao
## regiao
dados_reg_semesfera_semraca = dados_reg_semesfera %>%
filter(!is.na(raca_ou_cor)) %>%
group_by(ano, codreg, nome_regiao) %>%
summarise(total_somado = sum(total))
dados_reg_semesfera = merge(dados_reg_semesfera, dados_reg_semesfera_semraca,
by = c('ano', 'codreg', 'nome_regiao'),
all.x = T)
rm(dados_reg_semesfera_semraca)
## uf
dados_uf_semesfera_semraca = dados_uf_semesfera %>%
filter(!is.na(raca_ou_cor)) %>%
group_by(ano, uf, nome_uf) %>%
summarise(total_somado = sum(total))
dados_uf_semesfera = merge(dados_uf_semesfera, dados_uf_semesfera_semraca,
by = c('ano', 'uf', 'nome_uf'),
all.x = T)
rm(dados_uf_semesfera_semraca)
# grafico UF e REGIAO-----------------------------------------------------------
# visto por inspecionar elemento https://www.ipea.gov.br/atlasestado/consulta/197
# parda #99621e
# amarelo #bec420
# branca #37803a
# indigena #3893b5
# preto #000000
#ordem: amarelo branco indigena parda preto
cores_raca = c("#bec420", "#37803a", "#3893b5", "#99621e", "#000000")
## grafico REGIAO --------------------------------------------------------------
for (tipo in c("total","proporcao")) {
print(tipo)
for (codigo_reg in 1:5) {
print(codigo_reg)
if(tipo == "total"){
if(codigo_reg == 1){
grafico = plot_ly(#dados_reg_semesfera %>% filter(codreg == codigo_reg &
# !is.na(raca_ou_cor))
) %>%
#TOTAL
add_trace(data = dados_reg_semesfera %>% filter(codreg == codigo_reg &
!is.na(raca_ou_cor)),
x = ~ano,
y = ~total,
color = ~descricao_raca_ou_cor,
colors = cores_raca,
visible = TRUE,
type = "scatter",
text = ~ paste0("Região ",nome_regiao,"<br>",
descricao_raca_ou_cor,": ",
format(total, big.mark = "."),
"<br>Ano: ", ano),
hoverinfo = 'text',
marker = list(opacity = 0), # para tirar a 'bolinha'/marker
line = list(color = "")
)
}else{
grafico = grafico %>%
#TOTAL
add_trace(data = dados_reg_semesfera %>% filter(codreg == codigo_reg &
!is.na(raca_ou_cor)),
x = ~ano,
y = ~total,
color = ~descricao_raca_ou_cor,
# showlegend = F,
colors = cores_raca,
visible = F,
type = "scatter",
text = ~ paste0("Região ",nome_regiao,"<br>",
descricao_raca_ou_cor,": ",
format(total, big.mark = "."),
"<br>Ano: ", ano),
hoverinfo = 'text',
marker = list(opacity = 0), # para tirar a 'bolinha'/marker
line = list(color = "")
)
}
}else{
if(codigo_reg == 1){
grafico = grafico %>%
#PROPORCAO
add_trace(data = dados_reg_semesfera %>% filter(codreg == codigo_reg &
!is.na(raca_ou_cor)),
x = ~ano,
y = ~(total/total_somado)*100,
color = ~descricao_raca_ou_cor,
colors = cores_raca,
visible = F,
type = "scatter",
mode = "none",
fill = "tozeroy",
text = ~ paste0("Região ",nome_regiao,"<br>",
descricao_raca_ou_cor,": ",
round((total/total_somado)*100,1),"%",
"<br>Ano: ", ano),
hoverinfo = 'text')
}else{
grafico = grafico %>%
#PROPORCAO
add_trace(data = dados_reg_semesfera %>% filter(codreg == codigo_reg &
!is.na(raca_ou_cor)),
# showlegend = F,
x = ~ano,
y = ~(total/total_somado)*100,
color = ~descricao_raca_ou_cor,
colors = cores_raca,
visible = FALSE,
type = "scatter",
mode = "none",
fill = "tozeroy",
text = ~ paste0("Região ",nome_regiao,"<br>",
descricao_raca_ou_cor,": ",
round((total/total_somado)*100,1),"%",
"<br>Ano: ", ano),
hoverinfo = 'text')
}
}
}
}
rm(codigo_reg,tipo)
## grafico UF ------------------------------------------------------------------
for (tipo in c("total","proporcao")) {
print(tipo)
for (sigla_uf in unique(dados_uf_semesfera$uf[dados_uf_semesfera$ano>2003]) %>% sort()) {
#obs: precisa do sort para garantir a ordem para ficar a par com os botoes (updatemenus)
print(sigla_uf)
if(tipo == "total"){
grafico = grafico %>%
#TOTAL
add_trace(data = dados_uf_semesfera %>% filter(uf == sigla_uf &
!is.na(raca_ou_cor)),
x = ~ano,
y = ~total,
color = ~descricao_raca_ou_cor,
colors = cores_raca,
visible = F,
type = "scatter",
text = ~ paste0(nome_uf,"<br>",
descricao_raca_ou_cor,": ",
format(total, big.mark = "."),
"<br>Ano: ", ano),
hoverinfo = 'text',
marker = list(opacity = 0), # para tirar a 'bolinha'/marker
line = list(color = "")
)
}else{
grafico = grafico %>%
#PROPORCAO
add_trace(data = dados_uf_semesfera %>% filter(uf == sigla_uf &
!is.na(raca_ou_cor)),
x = ~ano,
y = ~(total/total_somado)*100,
color = ~descricao_raca_ou_cor,
colors = cores_raca,
visible = F,
type = "scatter",
mode = "none",
fill = "tozeroy",
text = ~ paste0(nome_uf,"<br>",
descricao_raca_ou_cor,": ",
round((total/total_somado)*100,1),"%",
"<br>Ano: ", ano),
hoverinfo = 'text')
}
}
}
rm(sigla_uf,tipo)
## grafico final ---------------------------------------------------------------
### botoes ---------------------------------------------------------------------
#### regiao ---------------------------------------------------------------
botao_total_regiao = list(y = 0.89, #Total VS proporcao - REGIAO
x = 1.16,
buttons = list(
list(method = "update",
args = list(list(visible = c(rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Norte"),
list(method = "update",
args = list(list(visible = c(rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Nordeste"),
list(method = "update",
args = list(list(visible = c(rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Sudeste"),
list(method = "update",
args = list(list(visible = c(rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Sul"),
list(method = "update",
args = list(list(visible = c(rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Centro-Oeste")
# label = "Proporção")
) # end button
) # end first button list
botao_prop_regiao = list(y = 0.57, # Regiao
x = 1.16,
buttons = list(
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Norte"),
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Nordeste"),
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Sudeste"),
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Sul"),
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Centro-Oeste")
) # end button
) # end third menu list
#### uf -------------------------------------------------------------------
## ordem dos estados
# unique(dados_uf_semesfera$uf[dados_uf_semesfera$ano>2003]) %>% sort()
# [1] "AC" "AL" "AM" "AP" "BA" "CE" "DF" "ES" "GO" "MA" "MG" "MS" "MT"
# [14] "PA" "PB" "PE" "PI" "PR" "RJ" "RN" "RO" "RR" "RS" "SC" "SE" "SP"
# [27] "TO"
botao_total_uf = list(y = 0.77, #Total VS proporcao - uf
x = 1.16,
buttons = list(
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Acre"), #1
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Alagoas"), #2
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Amazonas"), #3
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Amapá"), #4
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Bahia"), #5
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Ceará"), #6
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Distrito Federal"), #7
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Espiríto Santo"), #8
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Goiás"), #9
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Maranhão"), #10
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Minas Gerais"), #11
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Mato Grosso do Sul"), #12
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Mato Grosso"), #13
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Pará"), #14
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Paraíba"), #15
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Pernambuco"),#16
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Piauí"), #17
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Paraná"), #18
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Rio de Janeiro"), #19
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Rio Grande do Norte"), #20
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Rondônia"), #21
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Roraima"), #22
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Rio Grande do Sul"), #23
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Santa Catarina"), #24
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Sergipe"), #25
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "São Paulo"), #26
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),
# UF - PROP
rep(F,5*27)#5 RACAS*27 UF
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Número de vínculos"))),
label = "Tocantins") #27
) # end button
) # end second button list
botao_prop_uf = list(y = 0.45, # uf
x = 1.16,
buttons = list(
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Acre"), #1
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Alagoas"), #2
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Amazonas"), #3
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Amapá"), #4
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Bahia"), #5
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Ceará"), #6
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Distrito Federal"), #7
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Espiríto Santo"), #8
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Goiás"), #9
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Maranhão"), #10
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Minas Gerais"), #11
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Mato Grosso do Sul"), #12
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Mato Grosso"), #13
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Pará"), #14
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Paraíba"), #15
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Pernambuco"),#16
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Piauí"), #17
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Paraná"), #18
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Rio de Janeiro"), #19
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Rio Grande do Norte"), #20
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Rondônia"), #21
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Roraima"), #22
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Rio Grande do Sul"), #23
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Santa Catarina"), #24
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5),rep(F,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Sergipe"), #25
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(T,5),
rep(F,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "São Paulo"), #26
list(method = "update",
args = list(list(visible = c(rep(F,5*5),#5 RACAS*5 REGIOES
# REGIAO - PROP
rep(F,5*5),#5 RACAS*5 REGIOES
# UF -TOTAL
rep(F,5*27),#5 RACAS*27 UF
# UF - PROP
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(F,5),rep(F,5),
rep(T,5)
)),#OBS CADA LINHA/RACA EH UM TRACE
list(title =
"Proporção de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = "Proporção de vínculos (%)"))),
label = "Tocantins") #27
) # end button
) # end fourth menu list
### updatemnus ---------------------------------------------------------------
updatemenus = list(
botao_total_regiao,
botao_total_uf,
botao_prop_regiao,
botao_prop_uf
)
grafico_final = grafico %>%
layout(title = "Total de vínculos de trabalho no setor público por cor ou raça (2004-2020)",
yaxis = list(title = 'Número de vínculos'),
xaxis = list(tickvals = c(seq(2004,2020,2)),
range = c(2004,2020),
title = ""), #dados para raca eh partir de 2004
legend = list(orientation = "h",
xanchor = "center",
yanchor = "bottom",
x = 0.55,
y = 1),
hovermode = "x",
font = "Arial",
height = 700,
margin = list(
l = 80,
r = 100,
b = 70,
t = 90
),
annotations = list(list(text = "Total",
y = 1.0,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text = "Região",
y = 0.95,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text = "Estado",
y = 0.81,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text = "Proporção",
y = 0.65,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text = "Região",
y = 0.60,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text = "Estado",
y = 0.47,
x = 1.16,
showarrow = F,
xref = "paper", yref = "paper"),
list(text =
"Fonte: RAIS/ME com dados de cor/raça imputados pelo Ipea. Elaboração: Atlas do Estado Brasileiro - Ipea." ,
x = 0, y = -0.065,
showarrow = F,
xref = "paper", yref = "paper",
xanchor = "left", yanchor = "auto",
font = list(color = "rgb(150,150,150)", family = "arial",
size = 11)),
list(text =
"Nota: Sobre os dados imputados veja <a href = 'https://repositorio.ipea.gov.br/handle/11058/11580'> Imputação da informação de raça/cor na RAIS para o setor público brasileiro</a>." ,
x = 0, y = -0.095,
showarrow = F,
xref = "paper", yref = "paper",
xanchor = "left", yanchor = "auto",
font = list(color = "rgb(150,150,150)", family = "arial",
size = 11))
),
updatemenus = updatemenus
)