Trabalho 7_ 15 Perguntas

Carregando a base de dados…

library(readxl)
gujarati_empresa_tecnologia <- read_excel("D:/faculdade/2 periodo/Estatistica Aplicada/estat_adm/Base_de_dados-master/gujarati_empresa_tecnologia.xlsx")
View(gujarati_empresa_tecnologia)

No presente trabalho, será realizado às 15 atividades exigidas.

Carregando as bibliotecas

library(readxl)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(ggthemes)
library(flextable)

Substituindo…

gujarati_empresa_tecnologia$Educ <- ifelse(gujarati_empresa_tecnologia$Educ==1,"Ensino Médio",
                                           ifelse(gujarati_empresa_tecnologia$Educ==2,"Graduação","Pós-Graduação"))

gujarati_empresa_tecnologia$Posg <- ifelse(gujarati_empresa_tecnologia$Posg==1,"Sim","Não")

gujarati_empresa_tecnologia$Adm <- ifelse(gujarati_empresa_tecnologia$Adm==1,"Pessoal com cargo administrativo","Demais cargos")

Atividade 1

Quantas pessoas com graduação completa existem na empresa Gujarati?

graduacao=subset(gujarati_empresa_tecnologia,Educ='Graduação')
table(graduacao$Educ) %>% 
  data.frame() %>% 
  rename(Grau_de_Escolaridade=Var1,Total=Freq) %>% flextable() %>% theme_zebra()

Pode-se ver que o resultado é 21.

Atividade 2

Qual é o salário mais baixo da empresa? Qual a escolaridade dessa pessoa? Qual a experiência?

min_salario=subset(gujarati_empresa_tecnologia, Salario=='1053.5')

table(min_salario$Salario, min_salario$Educ, min_salario$Exp) %>% 
  data.frame() %>%
  rename(Salário=Var1,Escolaridade=Var2,Experiência=Var3,Total=Freq) %>%
  flextable() %>% theme_zebra()

O salário mais baixo é de R$ 1053,5.

Atividade 3

Qual a proporção de pessoas com pós-graduação na empresa Gujarati?

table(gujarati_empresa_tecnologia$Educ) %>% 
  prop.table() %>% '*'(100) %>%
  round(2) %>%
  data.frame() %>%
  rename(Escolaridade=Var1,Total=Freq) %>%
  flextable() %>% theme_zebra()

Fica explícito que o resultado é de 28.26%.

Atividade 4

Qual a proporção de pessoas com pós-graduação exercendo cargos administrativos na empresa Gujarati?

table(gujarati_empresa_tecnologia$Educ, gujarati_empresa_tecnologia$Adm) %>% 
  prop.table() %>%
  `*`(100) %>%
  round(2) %>%
  data.frame() %>%
  rename(Grau_De_Escolaridade=Var1,Cargos=Var2,Total=Freq) %>%
  flextable() %>% theme_zebra()

É mostrado que a proporção do pessoal que possui pós-graduação e exercem um cargo administrativo é de 17,39%.

Atividade 5

Qual o impacto da escolaridade no salário?

gujarati_empresa_tecnologia %>% select(Salario,Educ) %>%
  group_by(Educ) %>%
  summarise(
    Mínimo=min(Salario),
    Mediana=median(Salario),
    Média=round(mean(Salario),2),
    Desvio_Padrao=round(sd(Salario),2),
    Máximo=max(Salario)) %>% 
  flextable() %>% theme_zebra()

Basicamente no mundo o normal é que quem estudou mais para uma mesma área de atuação ganhe mais. E aqui não é diferente. Quem possui pós-graduação, possui a maior média de salário.

Atividade 6

O fato de ter um cargo administrativo influência no salário?

gujarati_empresa_tecnologia %>% select(Salario,Adm) %>%
  group_by(Adm) %>%
  summarise(
    Mínimo=min(Salario),
    Mediana=median(Salario),
    Média=round(mean(Salario),2),
    Desvio_Padrao=round(sd(Salario),2),
    Máximo=max(Salario)) %>% 
  flextable() %>% theme_zebra()

Influencia sim. Quem possui um cargo administrativo, possui a maior média de salário.

Atividade 7

Qual o impacto da experiência no salário?

gujarati_empresa_tecnologia["Exp2"]<-gujarati_empresa_tecnologia$Exp

gujarati_empresa_tecnologia$Exp2 <- ifelse(gujarati_empresa_tecnologia$Exp2<=5,"Pouca Exp",
                            ifelse(gujarati_empresa_tecnologia$Exp2>=11,"Muita Exp","Media Exp"))

gujarati_empresa_tecnologia %>% select(Salario,Exp) %>%
  group_by(Exp) %>%
  summarise(
    Mínimo=min(Salario),
    Mediana=median(Salario),
    Média=round(mean(Salario),2),
    Desvio_Padrao=round(sd(Salario),2),
    Máximo=max(Salario)) %>% 
  flextable() %>% theme_zebra()

Quem possui mais experiencia, normalmente ganha salários maiores. Pode-se afirmar isto porque a média de salário, fica próximo dos R$2000.

Atividade 8

Seria possível criar uma nova variável com base na escolaridade?

8.1 - Faça uma nova variável com base na codificação abaixo:

Nova classificação:

UNIV = “ensino médio” (se Educ=1)

UNIV = “ensino superior” (se Educ=2 ou Educ=3)

gujarati_empresa_tecnologia <- read_excel("D:/faculdade/2 periodo/Estatistica Aplicada/estat_adm/Base_de_dados-master/gujarati_empresa_tecnologia.xlsx")
gujarati_empresa_tecnologia["Univ"]<-gujarati_empresa_tecnologia$Educ
   
gujarati_empresa_tecnologia$Educ <- ifelse(gujarati_empresa_tecnologia$Educ==1,"Ensino Médio",
                            ifelse(gujarati_empresa_tecnologia$Educ==2,"Graduação","Pós-Graduação"))

gujarati_empresa_tecnologia$Posg <- ifelse(gujarati_empresa_tecnologia$Posg==1,"Sim","Não")

gujarati_empresa_tecnologia$Adm <- ifelse(gujarati_empresa_tecnologia$Adm==1,"Cargo Admin.", "Demais cargos")

gujarati_empresa_tecnologia$Univ <- ifelse(gujarati_empresa_tecnologia$Univ==1,"Ens. Médio", "Ens. Superior")

flextable(gujarati_empresa_tecnologia) %>% theme_zebra()

Atividade 9

Existe algum efeito no salário da interação do fato da pessoa estar em cargo administrativo (atividade meio) ou não (atividade fim da empresa) com a educação?

sem respostas

Atividade 10

Faça a transformação da experiência em três faixas de experiência.

menor que 5 anos = “pouca experiência”

entre 6 e 10 anos = “média experiência”

maior que 11 anos = “muita experiência”

gujarati_empresa_tecnologia["Exp2"]<-gujarati_empresa_tecnologia$Exp

gujarati_empresa_tecnologia$Exp2 <- ifelse(gujarati_empresa_tecnologia$Exp2<=5,"Pouca Exp.",
                            ifelse(gujarati_empresa_tecnologia$Exp2>=11,"Muita Exp.","Media Exp."))
flextable(gujarati_empresa_tecnologia) %>% theme_zebra()

Atividade 11

Quantas pessoas estão em cada categoria dessa nova variável faixas de experiência ?

table(gujarati_empresa_tecnologia$Exp2) %>% 
  data.frame() %>%
  rename(Experiência=Var1,Total=Freq) %>%
  flextable() %>% theme_zebra()

Atividade 12

Qual o salário médio, mediano e o desvio-padrão de cada categoria dessa nova variável faixas de experiência?

gujarati_empresa_tecnologia %>% select(Salario,Exp2) %>%
  group_by(Exp2) %>%
  summarise(
    Mínimo=min(Salario),
    Mediana=median(Salario),
    Média=round(mean(Salario),2),
    Desvio_Padrao=round(sd(Salario),2),
    Máximo=max(Salario)) %>% 
  flextable() %>% theme_zebra()

Atividade 13

Existe algum efeito no salário da interação da (faixa de) experiência com a educação?

sem respostas

Atividade 14

Existe alguma forma de avaliar o impacto simultâneo das variáveis experiência, educação e cargo administrativo no salário?

Sem respostas

Atividade 15

Você conseguria refazer e interpretar um dos gráficos abaixo?

Sem respostas

—F I M—–F I M—–F I M—