library(readxl)
library(dplyr)
library(ggplot2)
library(ggthemes)
library(flextable)
library(tidyr)
library(corrplot)
gujarati <- read_excel("~/Base_de_dados-master/gujarati_empresa_tecnologia.xlsx")

Questões:

Atividade 1

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

table(gujarati$Educ)
## 
##  1  2  3 
## 12 21 13

As pessoas com graduação totalizam 34 pessoas, somando 21 da graduação e 13 da pós-graduação.

Atividade 2

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

min(gujarati$Salario)
## [1] 1053.5

O menor salário da gujarati é de R$ 1.053,50. Seu nível de escolaridade é ensino médio completo. Sua experiência é de dois anos

Atividade 3

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

tabela_1 <- table(gujarati$Educ)
 tabela_1
## 
##  1  2  3 
## 12 21 13
 round(prop.table(tabela_1)*100)
## 
##  1  2  3 
## 26 46 28

Segundo a tabela, a proporção de pessoas com pós-graduação é de 28%

Atividade 4

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

 tabela_2 <- table(gujarati$Educ,gujarati$Adm)
 tabela_2
##    
##      0  1
##   1  9  3
##   2 12  9
##   3  5  8
 round(prop.table(tabela_2)*100)
##    
##      0  1
##   1 20  7
##   2 26 20
##   3 11 17

A proporção de pessoas com pós grduação em cargos administrativos é de 17%

Atividade 5

Qual o impacto da escolaridade no salário?

gujarati %>% select(Salario,Educ) %>%
   group_by(Educ) %>%
   summarise(
     Média=round(mean(Salario)),
     Mediana=median(Salario)) %>%
   flextable() %>% theme_vader()

Segundo a tabela, quanto maior a escolaridade maior o salário.

Atividade 6

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

gujarati %>% select(Salario,Adm) %>% 
   group_by(Adm) %>% 
   summarise(
     média=round(mean(Salario)),
     mediana=median(Salario)) %>% 
   flextable() %>% theme_alafoli()

Segundo a tabela, ter um cargo administrativo influência positivamente o salário.

Atividade 7

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

gujarati %>% select(Salario,Exp) %>% 
   group_by(Exp) %>% 
   summarise(
     média=round(mean(Salario))) %>% 
   flextable() %>% theme_zebra()

Atividade 8

Seria possível criar uma nova variável com base na escolaridade? 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 <- separate(gujarati,"Educ",into = "Ensino Médio,", 
           sep ="1", remove = FALSE )
 
 gujarati <- separate(gujarati,"Educ", into = "Ensino Superior",
           sep = "2", remove = FALSE)
 
 gujarati <- separate(gujarati,"Ensino Superior", into = "Ensino Superior",
                      sep = "3", remove = FALSE)

Atividade 9

Existe algum efeito no salário da interação do fato da pessoa estar em cargo administrativo?

atividadMC <- gujarati %>% select(Educ, Adm, Salario) %>% cor()
mc <- gujarati %>% select(Educ, Adm, Salario) %>% cor()
selecao <- c("Educação", "Cargo ADM", "Salário")
 

corrplot(mc,method = "number")

Atividade 10

Faça a transformação da experiência em três faixas de experiência. 1. menor que 5 anos = “pouca experiência” 2. entre 6 e 10 anos = “média experiência” 3. maior que 11 anos = “muita experiência”

  gujarati$Exp <- ifelse(gujarati$Exp<6,"pouca experiência",ifelse(gujarati$Exp>10,"muita experiência","média experiência"))

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

tabela3 <- table(gujarati$Exp)
tabela3
## 
## média experiência muita experiência pouca experiência 
##                13                13                20

Média Experiência Muita Experiência 13 13 Pouca experiência 20

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 %>% select(Salario,Exp) %>% group_by(Exp) %>% 
  summarise(mediana=median(Salario), mínimo=min(Salario),maximo=max(Salario),media=mean(Salario),desvio_padrão=round(sd(Salario),2)) %>% flextable() %>% theme_alafoli()