TESTE CAGED 2020

Análise CAGED 2020 raça cor por sexo

getwd()
## [1] "E:/cursoUEL"
setwd("E:/caged/caged2020_merged")
dados<- read.csv2(file="CAGEDMOV2020merged.txt", header = TRUE, sep=";", dec =',')
x = names(dados)
x[(names(dados) == "raÃ.acor")] = "racacor"
colnames(dados) = x

x = names(dados)
x[(names(dados) == "tipodedeficiência")] = "deficiencia"
colnames(dados) = x

x = names(dados)
x[(names(dados) == "graudeinstruÃ.Ã.o")] = "graudeinstrucao"
colnames(dados) = x


x = names(dados)
x[(names(dados) == "tipomovimentaÃ.Ã.o")] = "movimentacao"
colnames(dados) = x

x = names(dados)
x[(names(dados) == "cbo2002ocupaÃ.Ã.o")] = "cbo2002"
colnames(dados) = x

x = names(dados)
x[(names(dados) == "salÃ.rio")] = "salario"
colnames(dados) = x
geral <- select(dados, sexo, racacor, deficiencia, movimentacao, cbo2002, idade, graudeinstrucao, salario)



def_geral <- filter(geral, deficiencia == 1 | deficiencia == 2 |
                      deficiencia == 3 |
                      deficiencia == 4 |
                      deficiencia == 5 )
ggplot(def_geral, aes(x=sexo, y=racacor)) +
  geom_bar(stat = "identity")