Introdução

O objetivo deste trabalho é analisar a coleta de dados de um “questionário estresse” onde será analisado as váriaveis qualitativas “trabalha”, “mora com os pais” , “namorando” " o estresse"

FASE 1

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/welington/Desktop/MESTRADO_2021/Base_de_dados-master/Questionario_Estresse.xls", 
                                      sheet = "Dados")

FASE 2

summary(Questionario_Estresse)
##      Aluno          Turma         Mora_pais           RJ         Namorado(a)   
##  Min.   : 1.0   Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :1.000  
##  1st Qu.:24.5   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
##  Median :48.0   Median :2.000   Median :2.000   Median :2.000   Median :2.000  
##  Mean   :48.0   Mean   :2.074   Mean   :1.537   Mean   :1.653   Mean   :1.505  
##  3rd Qu.:71.5   3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.000  
##  Max.   :95.0   Max.   :3.000   Max.   :2.000   Max.   :2.000   Max.   :2.000  
##                                                                                
##     Trabalha       Desempenho       Estresse        Créditos    
##  Min.   :1.000   Min.   :5.820   Min.   :12.00   Min.   :15.00  
##  1st Qu.:1.000   1st Qu.:8.500   1st Qu.:22.50   1st Qu.:23.00  
##  Median :2.000   Median :8.700   Median :27.00   Median :24.00  
##  Mean   :1.621   Mean   :8.594   Mean   :27.82   Mean   :24.95  
##  3rd Qu.:2.000   3rd Qu.:9.050   3rd Qu.:33.00   3rd Qu.:27.00  
##  Max.   :2.000   Max.   :9.700   Max.   :44.00   Max.   :49.00  
##                                                  NA's   :1      
##   Horas_estudo  
##  Min.   :19.00  
##  1st Qu.:25.00  
##  Median :30.00  
##  Mean   :30.73  
##  3rd Qu.:35.00  
##  Max.   :60.00  
## 
class(Questionario_Estresse$`Namorado(a)`)
## [1] "numeric"
class(Questionario_Estresse$Mora_pais)
## [1] "numeric"
class(Questionario_Estresse$Trabalha)
## [1] "numeric"
class(Questionario_Estresse$Desempenho)
## [1] "numeric"
Questionario_Estresse$`Namorado(a)`<- as.factor(Questionario_Estresse$`Namorado(a)`)
Questionario_Estresse$Mora_pais <- as.factor(Questionario_Estresse$Mora_pais)
Questionario_Estresse$Trabalha <- as.factor(Questionario_Estresse$Trabalha)
Questionario_Estresse$Estresse <- as.factor(Questionario_Estresse$Estresse)

summary(Questionario_Estresse$`Namorado(a)`)
##  1  2 
## 47 48
summary(Questionario_Estresse$Mora_pais)
##  1  2 
## 44 51
summary(Questionario_Estresse$Trabalha)
##  1  2 
## 36 59
summary(Questionario_Estresse$Estresse)
## 12 13 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 
##  1  2  1  3  3  1  1  5  5  2  3  4  6  8  3  2  4  6  5  4  5  3  3  1  3  3 
## 39 40 41 42 44 
##  1  1  2  2  2
Questionario_Estresse$Trabalha_2 <- ifelse(Questionario_Estresse$Trabalha=="1","trabalha","não trabalha")
Questionario_Estresse$Mora_pais_2 <- ifelse(Questionario_Estresse$Mora_pais=="1","mora com os pais","não mora com os pais")
Questionario_Estresse$Namorado_2 <- ifelse(Questionario_Estresse$`Namorado(a)`=="1","com namorado","sem namorado")
Questionario_Estresse$Estresse_2<-ifelse(Questionario_Estresse$Estresse=="1"," com estresse","sem estresse")

Fase 3

tabela_trabalha <- table(Questionario_Estresse$Trabalha_2)
tabela_mora_pais<-table(Questionario_Estresse$Mora_pais_2)
tabela_namorado <- table(Questionario_Estresse$Namorado_2)
tabela_estresse <- table(Questionario_Estresse$Estresse_2)

Tabela trabalhador

1 2

47 48

Tabela mora com os pais

1 2

44 51

Tabela namorando

1 2

47 48

prop.table(tabela_mora_pais)
## 
##     mora com os pais não mora com os pais 
##            0.4631579            0.5368421
prop.table(tabela_trabalha)
## 
## não trabalha     trabalha 
##    0.6210526    0.3789474
prop.table(tabela_namorado)
## 
## com namorado sem namorado 
##    0.4947368    0.5052632
prop.table(tabela_estresse)
## 
## sem estresse 
##            1

Gráficos

prop.table(tabela_trabalha)
## 
## não trabalha     trabalha 
##    0.6210526    0.3789474
pie(tabela_trabalha ,col =c("blue" , "yellow"),main ="Gráfico Trabalha Fora!")

prop.table(tabela_mora_pais)
## 
##     mora com os pais não mora com os pais 
##            0.4631579            0.5368421
pie(tabela_mora_pais,col = c("#786060","#696b30"),main = "Gráfico Mora com os pais")

prop.table(tabela_namorado)
## 
## com namorado sem namorado 
##    0.4947368    0.5052632
pie(tabela_namorado,col = c("pink","green"),main = "Grafico Namorando")

prop.table(tabela_estresse)
## 
## sem estresse 
##            1
pie(tabela_estresse,col = c("grey","grey"),main = "Gráfico Estressado")

barplot(tabela_mora_pais,col = c("#60a397","#28249c"),main ="Gráfico Morar com os Pais !",ylim = c(0,50),ylab ="Moram com os Pais")

barplot(tabela_trabalha,col = c("#60a397","#c3c914"),main =" Gráfico Trabalhador !",ylim = c(0,70),ylab = "Quantidade de tarabalhadores")

barplot(tabela_namorado,col = c("#60a397","#c99314"),main ="Gráfico Namorados !",ylim = c(0,50))

barplot(tabela_estresse,col = c("#c94814","#28249c"),main ="Gráfico Análise do Estresse !",ylim = c(0,120))

## Análise dos Gráficos

CONCLUSÃO

Foi Observado nos gráficos acima que 54% dos estudantes entrevistados não moram com os pais e que 63% não trabalham.Temos também quase um empate técnico entre os que namoram ou não,mas o estresse está em alta.