lista3.R

#lista 3 

#Crie um Data.Frame com as variáveis nome, sobrenome, cpf, idade. Ao menos com 5 linhas.
#Cria uma variável digito_verificador extraindo o nono digito do cpf
#crie uma variávelnome_completo concatenando nome e sobrenome e inclua no data.frame essas duas variáveis.

nomes <- c('victor', 'moriyuki', 'kurauchi', 'joao', 'joana')
sobrenomes <- c('mcgregore', 'oconnel', 'bond', 'junior', 'neto')
cpf <- c(43088711822, 43088711821, 43088711810, 43088711890, 43088711818)
idades <- c(18, 19, 20, 21, 22)
cadastro <- data.frame(nomes, sobrenomes, cpf, idades)
cadastro

digito_verificador <- c(substr(cadastro$cpf, start = 9, stop = 9))
digito_verificador

cadastro$nome_completo <- c(paste(cadastro$nomes, cadastro$sobrenomes, sep=" "))
cadastro

#No Arquivo Banco: Crie uma variável faixasal a partir da variável salário com as seguintes
#quebras: E coloque essa variável no Banco.
# >= 15000,
# 35000 até 45000
# 45000 até 55000
# 55000 até 135000
attach(Banco)

faixa_sal <- cut(
  as.numeric(Banco$salário), 
  breaks = c(
    min(as.numeric(Banco$salário)), 
    mean(as.numeric(Banco$salário)), 
    max(as.numeric(Banco$salário))
  )
)

faixa_sal
#Banco$faixa_sal <- 

#Crie uma variável que representará a porcentagem de aumento que os funcionários do banco
#tiveram e coloque no Banco. O nome da nova variável será PERCENT. Será necessário usar a
#formula (salario – salarin)/salarin * 100.
Banco$percent <- c((Banco$salário - Banco$salarin)/Banco$salarin * 100)
View(Banco)

#Faça uma tabela de dupla entrada através do procedimento Crosstable. Utilizando as
#variáveis faixasal e sexo.
CrossTable(
  Banco$sexo, 
  Banco$faixa_sal, 
  digits=3, 
  expected = FALSE, 
  prop.r = TRUE,
  prop.c = TRUE,
  prop.t = TRUE,
  asresid = FALSE
)

#Faça uma seleção dos indivíduos com categoria de emprego C. Após a seleção faça um
#gráfico BoxPLot da variável salário separado por sexo.
selecao <- Banco [Banco$catemp == 3,]
selecao

boxplot(
  selecao$salário ~selecao$sexo, 
  main='boxplot por salario e sexo', 
  xlab = 'sexo', ylab='salario',
  col=c('blue', 'red')
)