Prova pratica: Analise de Dados da Rais(2010-2018)
Rodrigo F C pinto
2025-10-15
CARREGAMENTO DAS LIBRARYS PRINCIPAIS:
library(tidyverse)
library(basedosdados)
library(scales)
library(showtext)
library(bigrquery)
library(psych)library(geobr)
library(ggplot2)
library(sf)
library(dplyr)
library(rio)
library(readr)
library(patchwork)
library(shiny)
library(leaflet)
library(htmltools)BAIAXANDO OS DADOS:
basedosdados::set_billing_id("glassy-groove-153322")
dicionario = "SELECT * FROM `basedosdados.br_me_rais.dicionario`"
dicionario <- read_sql(dicionario)
#write.table(dicionario, "nome_do_arquivo.txt", sep = "\t", row.names = FALSE) #baixar em txt para ficar mais facilSelecionando as variaveis relevantes para a analise e baixando os dados e chamar no SQL
query_rais_rj_paste <- function(ano) {
query <- paste0("
SELECT
ano,
raca_cor,
valor_remuneracao_media,
sigla_uf,
tipo_vinculo,
id_municipio
FROM
`basedosdados.br_me_rais.microdados_vinculos`
WHERE ano = ", ano)
return(query)
}dicionario das variaveis brutas relevantes
Nessa etapa tambem foi dividido o que vai ser considerado CLT/Estatal/Negros/Brancos
mapa_tipo_vinculo = dicionario %>%
filter(nome_coluna == "tipo_vinculo") %>%
select(chave, valor) %>%
deframe()
mapa_raca_cor = dicionario %>%
filter(nome_coluna == "raca_cor") %>%
select(chave, valor) %>%
deframe()
mapa_tipo_vinculo## <NA> 15 25
## "NÃO CLASSIFICADO" "CLT U/PF IND" "CLT R/PF IND"
## 70 90 35
## "CLT R/PJ DET" "CONT PRZ DET" "ESTAT N/EFET"
## 96 60 30
## "CONT LEI EST" "CLT U/PJ DET" "ESTATUTARIO"
## 95 80 20
## "CONT TMP DET" "DIRETOR" "CLT R/PJ IND"
## 55 65 97
## "APREND CONTR" "CLT U/PF DET" "CONT LEI MUN"
## 75 31 10
## "CLT R/PF DET" "ESTAT RGPS" "CLT U/PJ IND"
## 40 -1 5
## "AVULSO" "IGNORADO" "OUTROS"
## 1 4 2
## "CLT" "TRABALHADOR TEMP" "ESTATUTÁRIO"
## 3 50 50
## "TRABALHADOR AVULSO" "TEMPORARIO/FIXO" "TEMPORARIO"mapa_raca_cor## 99
## "Código não encontrado nos dicionários oficiais."
## -1
## "Ignorado"
## 2
## "Branca"
## 8
## "Parda"
## 1
## "Indígena"
## 4
## "Preta"
## 6
## "Amarela"
## 9
## "Não identificado"codigos_clt <- c(15, 25, 70, 60, 20, 65, 75, 10)
codigos_estatal <- c(35, 30, 96, 31)
codigos_pnegros <- c(4, 8)
codigo_pbrancos <- c(2)Criacao do DF
agrupar_dados_rais <- function(df) {
dados_agrupados <- df %>%
dplyr::group_by(id_municipio) %>%
dplyr::summarise(
total_registros = n(),
trabalhador_negros = sum(raca_cor %in% codigos_pnegros),
trabalhador_brancas = sum(raca_cor %in% codigo_pbrancos),
total_clt = sum(tipo_vinculo %in% codigos_clt),
total_estatal = sum(tipo_vinculo %in% codigos_estatal),
remuneracao_media_total = mean(valor_remuneracao_media, na.rm = TRUE),
media_remuneracao_negros = mean(valor_remuneracao_media[raca_cor %in% codigos_pnegros], na.rm = TRUE),
media_remuneracao_brancos = mean(valor_remuneracao_media[raca_cor %in% codigo_pbrancos], na.rm = TRUE),
media_remuneracao_clt = mean(valor_remuneracao_media[tipo_vinculo %in% codigos_clt], na.rm = TRUE),
media_remuneracao_estatal = mean(valor_remuneracao_media[tipo_vinculo %in% codigos_estatal], na.rm = TRUE),
media_remuneracao_negros_clt = mean(valor_remuneracao_media[raca_cor %in% codigos_pnegros & tipo_vinculo %in% codigos_clt], na.rm = TRUE),
media_remuneracao_negros_estatal = mean(valor_remuneracao_media[raca_cor %in% codigos_pnegros & tipo_vinculo %in% codigos_estatal], na.rm = TRUE),
media_remuneracao_brancos_clt = mean(valor_remuneracao_media[raca_cor %in% codigo_pbrancos & tipo_vinculo %in% codigos_clt], na.rm = TRUE),
media_remuneracao_brancos_estatal = mean(valor_remuneracao_media[raca_cor %in% codigo_pbrancos & tipo_vinculo %in% codigos_estatal], na.rm = TRUE),
razao_salario_bp = (media_remuneracao_brancos / media_remuneracao_negros),
razao_salario_bpestatal = (media_remuneracao_brancos_estatal / media_remuneracao_negros_estatal),
razao_salario_bpCLT = (media_remuneracao_brancos_clt / media_remuneracao_negros_clt)
) %>%
dplyr::ungroup()
return(dados_agrupados)
}Descricao da estrutura do DF
Descricao dos dados para os anos 2010/2014/2018
describe(dados_agrupados_2010)## vars n mean sd median trimmed
## id_municipio* 1 5565 2783.00 1606.62 2783.00 2783.00
## total_registros 2 5565 11994.12 124841.09 1331.00 2580.53
## trabalhador_negros 3 5565 3583.07 37228.59 221.00 576.32
## trabalhador_brancas 4 5565 6013.55 66948.02 406.00 1113.60
## total_clt 5 5565 9806.97 100429.96 807.00 1944.60
## total_estatal 6 5565 1743.27 18587.30 406.00 525.14
## remuneracao_media_total 7 5565 951.07 251.71 906.59 920.86
## media_remuneracao_negros 8 5502 870.31 317.80 797.68 824.29
## media_remuneracao_brancos 9 5519 996.41 414.98 907.05 933.15
## media_remuneracao_clt 10 5557 916.40 308.91 853.55 872.12
## media_remuneracao_estatal 11 5511 1171.21 576.26 1039.60 1081.88
## media_remuneracao_negros_clt 12 5496 871.81 320.08 797.87 825.10
## media_remuneracao_negros_estatal 13 76 1065.23 871.76 769.12 915.31
## media_remuneracao_brancos_clt 14 5515 995.58 418.35 905.39 930.86
## media_remuneracao_brancos_estatal 15 86 1330.47 1440.68 904.26 1053.87
## razao_salario_bp 16 5465 Inf NaN 1.12 1.14
## razao_salario_bpestatal 17 37 1.27 0.80 1.07 1.13
## razao_salario_bpCLT 18 5456 Inf NaN 1.12 1.13
## mad min max range skew
## id_municipio* 2062.30 1.00 5565.00 5564.00 0.00
## total_registros 1421.81 1.00 7394282.00 7394281.00 43.43
## trabalhador_negros 303.93 0.00 1814302.00 1814302.00 32.57
## trabalhador_brancas 570.80 0.00 4310077.00 4310077.00 51.02
## total_clt 1091.19 0.00 6071030.00 6071030.00 44.94
## total_estatal 338.03 0.00 904349.00 904349.00 31.61
## remuneracao_media_total 171.32 203.16 4325.70 4122.53 3.17
## media_remuneracao_negros 182.83 0.00 7479.15 7479.15 4.79
## media_remuneracao_brancos 221.36 205.20 8221.83 8016.63 4.76
## media_remuneracao_clt 193.07 389.15 5913.75 5524.59 4.58
## media_remuneracao_estatal 320.40 89.07 8718.75 8629.68 4.33
## media_remuneracao_negros_clt 182.54 0.00 7511.30 7511.30 4.90
## media_remuneracao_negros_estatal 375.64 0.00 6026.66 6026.66 2.98
## media_remuneracao_brancos_clt 223.61 299.50 8307.06 8007.56 4.74
## media_remuneracao_brancos_estatal 449.00 317.90 11563.85 11245.95 4.82
## razao_salario_bp 0.19 0.10 Inf Inf NaN
## razao_salario_bpestatal 0.21 0.22 4.09 3.88 2.00
## razao_salario_bpCLT 0.19 0.10 Inf Inf NaN
## kurtosis se
## id_municipio* -1.20 21.54
## total_registros 2340.34 1673.50
## trabalhador_negros 1316.99 499.05
## trabalhador_brancas 3124.94 897.44
## total_clt 2502.52 1346.27
## total_estatal 1248.71 249.16
## remuneracao_media_total 24.97 3.37
## media_remuneracao_negros 55.74 4.28
## media_remuneracao_brancos 47.33 5.59
## media_remuneracao_clt 48.09 4.14
## media_remuneracao_estatal 33.54 7.76
## media_remuneracao_negros_clt 57.73 4.32
## media_remuneracao_negros_estatal 12.37 100.00
## media_remuneracao_brancos_clt 47.14 5.63
## media_remuneracao_brancos_estatal 28.71 155.35
## razao_salario_bp NaN NaN
## razao_salario_bpestatal 3.93 0.13
## razao_salario_bpCLT NaN NaNdescribe(dados_agrupados_2014)## vars n mean sd median trimmed
## id_municipio* 1 5570 2785.50 1608.06 2785.50 2785.50
## total_registros 2 5570 13663.78 138316.62 1547.00 2944.56
## trabalhador_negros 3 5570 4558.22 48361.96 287.00 707.81
## trabalhador_brancas 4 5570 6160.78 66742.99 434.50 1158.83
## total_clt 5 5570 11342.83 114865.15 976.50 2225.70
## total_estatal 6 5570 1882.42 19445.71 455.00 588.04
## remuneracao_media_total 7 5570 1398.85 317.14 1343.88 1361.41
## media_remuneracao_negros 8 5543 1244.07 398.45 1166.20 1193.01
## media_remuneracao_brancos 9 5548 1441.88 595.23 1326.55 1354.63
## media_remuneracao_clt 10 5568 1302.82 403.98 1228.26 1248.79
## media_remuneracao_estatal 11 5523 1749.02 739.16 1588.87 1638.71
## media_remuneracao_negros_clt 12 5540 1247.25 416.13 1165.13 1193.24
## media_remuneracao_negros_estatal 13 119 1769.69 2203.23 1234.92 1361.85
## media_remuneracao_brancos_clt 14 5547 1442.66 610.41 1323.06 1351.55
## media_remuneracao_brancos_estatal 15 137 1611.31 1370.42 1153.10 1366.70
## razao_salario_bp 16 5523 Inf NaN 1.12 1.14
## razao_salario_bpestatal 17 56 1.49 2.41 1.06 1.09
## razao_salario_bpCLT 18 5519 Inf NaN 1.12 1.13
## mad min max range skew
## id_municipio* 2064.52 1.00 5570.00 5569.00 0.00
## total_registros 1632.34 3.00 8147847.00 8147844.00 42.83
## trabalhador_negros 386.96 0.00 2458008.00 2458008.00 34.44
## trabalhador_brancas 604.16 0.00 4256359.00 4256359.00 50.09
## total_clt 1283.93 0.00 6853841.00 6853841.00 44.02
## total_estatal 362.50 0.00 942776.00 942776.00 31.83
## remuneracao_media_total 226.28 460.28 5982.46 5522.18 2.69
## media_remuneracao_negros 253.43 0.00 10016.39 10016.39 5.37
## media_remuneracao_brancos 316.31 467.48 11773.69 11306.21 5.14
## media_remuneracao_clt 266.47 613.50 9405.39 8791.89 4.66
## media_remuneracao_estatal 438.79 0.00 13149.47 13149.47 4.01
## media_remuneracao_negros_clt 258.47 0.00 10016.39 10016.39 5.83
## media_remuneracao_negros_estatal 597.45 0.00 19450.00 19450.00 5.58
## media_remuneracao_brancos_clt 325.56 569.00 11786.13 11217.14 5.05
## media_remuneracao_brancos_estatal 636.18 0.00 10969.47 10969.47 3.53
## razao_salario_bp 0.17 0.20 Inf Inf NaN
## razao_salario_bpestatal 0.25 0.41 18.28 17.87 6.18
## razao_salario_bpCLT 0.17 0.21 Inf Inf NaN
## kurtosis se
## id_municipio* -1.20 21.55
## total_registros 2291.00 1853.30
## trabalhador_negros 1483.15 648.00
## trabalhador_brancas 3022.30 894.29
## total_clt 2403.44 1539.08
## total_estatal 1255.01 260.55
## remuneracao_media_total 18.73 4.25
## media_remuneracao_negros 72.39 5.35
## media_remuneracao_brancos 50.38 7.99
## media_remuneracao_clt 53.92 5.41
## media_remuneracao_estatal 32.07 9.95
## media_remuneracao_negros_clt 78.35 5.59
## media_remuneracao_negros_estatal 37.14 201.97
## media_remuneracao_brancos_clt 48.03 8.20
## media_remuneracao_brancos_estatal 17.67 117.08
## razao_salario_bp NaN NaN
## razao_salario_bpestatal 39.54 0.32
## razao_salario_bpCLT NaN NaNdescribe(dados_agrupados_2018)## vars n mean sd median trimmed
## id_municipio* 1 5570 2785.50 1608.06 2785.50 2785.50
## total_registros 2 5570 11887.74 116732.57 1564.50 2811.93
## trabalhador_negros 3 5570 3971.22 41200.03 294.00 696.97
## trabalhador_brancas 4 5570 4830.66 51858.78 366.00 966.24
## total_clt 5 5570 9595.53 95440.59 917.00 2045.07
## total_estatal 6 5570 1867.35 17753.37 478.00 618.58
## remuneracao_media_total 7 5570 1838.80 369.30 1777.55 1799.60
## media_remuneracao_negros 8 5557 1599.16 436.78 1524.64 1549.86
## media_remuneracao_brancos 9 5553 1864.73 703.34 1745.15 1771.57
## media_remuneracao_clt 10 5570 1677.11 462.62 1600.00 1621.71
## media_remuneracao_estatal 11 5541 2330.63 913.56 2123.61 2194.64
## media_remuneracao_negros_clt 12 5556 1603.85 440.50 1526.46 1552.71
## media_remuneracao_negros_estatal 13 120 1940.07 1977.05 1457.70 1620.07
## media_remuneracao_brancos_clt 14 5549 1867.76 718.04 1745.95 1769.12
## media_remuneracao_brancos_estatal 15 114 2121.94 1492.74 1564.50 1886.16
## razao_salario_bp 16 5541 1.18 0.34 1.13 1.14
## razao_salario_bpestatal 17 57 1.16 0.56 1.03 1.07
## razao_salario_bpCLT 18 5536 1.17 0.31 1.13 1.14
## mad min max range skew
## id_municipio* 2064.52 1.00 5570.00 5569.00 0.00
## total_registros 1622.71 7.00 7020382.00 7020375.00 44.14
## trabalhador_negros 391.41 0.00 2243825.00 2243825.00 37.26
## trabalhador_brancas 505.57 0.00 3378107.00 3378107.00 52.30
## total_clt 1192.01 1.00 5868305.00 5868304.00 46.21
## total_estatal 380.29 0.00 841524.00 841524.00 30.19
## remuneracao_media_total 291.59 806.73 5865.32 5058.59 1.97
## media_remuneracao_negros 319.72 161.26 10977.00 10815.73 4.34
## media_remuneracao_brancos 411.70 344.50 14493.76 14149.26 5.16
## media_remuneracao_clt 356.80 522.83 9124.85 8602.01 3.38
## media_remuneracao_estatal 582.93 0.00 18950.23 18950.23 3.91
## media_remuneracao_negros_clt 326.96 469.27 9858.72 9389.45 3.52
## media_remuneracao_negros_estatal 679.12 448.46 19226.66 18778.20 5.91
## media_remuneracao_brancos_clt 428.99 344.50 14651.20 14306.70 4.60
## media_remuneracao_brancos_estatal 872.06 445.75 8144.15 7698.40 1.84
## razao_salario_bp 0.17 0.24 12.22 11.97 8.86
## razao_salario_bpestatal 0.21 0.31 3.46 3.16 2.34
## razao_salario_bpCLT 0.16 0.24 5.95 5.71 4.10
## kurtosis se
## id_municipio* -1.20 21.55
## total_registros 2440.07 1564.10
## trabalhador_negros 1764.96 552.04
## trabalhador_brancas 3261.07 694.86
## total_clt 2644.62 1278.81
## total_estatal 1147.48 237.88
## remuneracao_media_total 9.71 4.95
## media_remuneracao_negros 57.12 5.86
## media_remuneracao_brancos 56.61 9.44
## media_remuneracao_clt 29.79 6.20
## media_remuneracao_estatal 37.09 12.27
## media_remuneracao_negros_clt 35.18 5.91
## media_remuneracao_negros_estatal 46.57 180.48
## media_remuneracao_brancos_clt 43.61 9.64
## media_remuneracao_brancos_estatal 3.92 139.81
## razao_salario_bp 211.34 0.00
## razao_salario_bpestatal 6.52 0.07
## razao_salario_bpCLT 38.26 0.00Alguns valores estao como infinitos ou NAN. Os Infinitos foram causados por terem municipios que o salario medio esta como 0 causando a divisao salario pessoa branca/salario pessoa negra irem ao infinito.Os NANs esta acontecendo por falta de dados por terem municipios pequenos que nao tem informacao tambem ’e observado que muitos empregos estatais a etnia esta marcada como 9 que quer dizer “Não identificado”
dados_agrupados_2010 <- dados_agrupados_2010 %>%
filter(if_all(everything(), ~ . != 0 | is.na(.)))
## # A tibble: 99 × 3
## raca_cor tipo_vinculo frequencia
## <chr> <chr> <int>
## 1 2 10 24269893
## 2 8 10 16834626
## 3 9 10 5773190
## 4 4 10 2686220
## 5 6 10 320791
## 6 1 10 108939
## 7 2 15 263926
## 8 8 15 159753
## 9 9 15 105320
## 10 4 15 26169
## # ℹ 89 more rowsBoxplot e Histogramas
Razao salarial geral
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
Razao salarial CLT
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
Razao salarial estatal
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
## $boxplot
##
## $histograma
A análise da razão salarial evidencia a persistência de uma disparidade remuneratória estrutural no mercado de trabalho. Este achado sugere que, em termos médios, trabalhadores que se identificam como brancos percebem rendimentos superiores aos de trabalhadores negros, configurando um indicativo de desigualdade salarial de raça no contexto analisado.
O índice acima de 1,0 aponta para a materialização de um diferencial de rendimento que não é integralmente explicado por fatores produtivos (como escolaridade e experiência), mas que é frequentemente atribuído a mecanismos de discriminação racial e segregação ocupacional.
Analise temporal
A análise de séries temporais da razão salarial revela uma notável rigidez ou estabilidade temporal na magnitude da disparidade, o que sugere a persistência dos fatores subjacentes que a determinam ao longo do período de observação.
A única variação perceptível é detectada na categoria referente à média do setor estatal , a base de dados reduzida para este segmento eleva o risco de viés de estimação e limita a inferência sobre a verdadeira dinâmica da desigualdade salarial nesse setor específico, indicando que a mudança observada pode não ser estatisticamente robusta ou representativa.
A representação espacial dos dados evidencia a acentuada e persistente disparidade salarial na Região Norte do país.
Adicionalmente, a prevalência de uma razão salarial superior à unidade na maioria das demais regiões geográficas fornece corroboração empírica à hipótese de que a desigualdade salarial de raça constitui um fenômeno estruturalmente consolidado no território brasileiro. Esta distribuição sugere que os mecanismos que geram o diferencial de rendimentos não se restringem a particularidades regionais, mas sim refletem dinâmicas presentes em todo o mercado de trabalho nacional.