Atividade 4
Alexandra Rabello
20/11/2021
Análise do Questionário de Estresse
Carregando dados para análise:
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Alexandra/Desktop/estatistica/pasta 2/Questionario_Estresse.xls",
sheet = "Dados")
View(Questionario_Estresse)verificando a base de dados
head(Questionario_Estresse)## # A tibble: 6 x 10
## Aluno Turma Mora_pais RJ Namorado_a Trabalha Desempenho Estresse Créditos
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 1 2 2 2 2 8.89 23 27
## 2 2 1 1 1 2 2 8.8 24 28
## 3 3 1 2 2 2 2 8 25 25
## 4 4 1 2 2 1 1 8.8 38 21
## 5 5 1 2 2 2 1 8.9 41 18
## 6 6 1 2 2 1 1 8.1 25 29
## # ... with 1 more variable: Horas_estudo <dbl>Para duas variáveis qualitativas:
#Qualitativa - mora pais, trabalha, namorado.
#Quantitativa - desempenho, estresse, crédito#uma tabela cruzada
# Mora com os pais x possui relacionamento
TabPaisRela = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Namorado_a)
TabPaisRela##
## 1 2
## 1 19 25
## 2 28 23#### Mora com os pais x Trabalho
TabPaiTrab = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Trabalha)
TabPaiTrab##
## 1 2
## 1 17 27
## 2 19 32##Possui relacionamento x Trabalho
TabRelTrab = table(Questionario_Estresse$Namorado_a,Questionario_Estresse$Trabalha)
TabRelTrab##
## 1 2
## 1 18 29
## 2 18 30três variáveis.
Tabtripla = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Namorado_a,Questionario_Estresse$Trabalha)
Tabtripla## , , = 1
##
##
## 1 2
## 1 8 9
## 2 10 9
##
## , , = 2
##
##
## 1 2
## 1 11 16
## 2 18 14tabelas na formatação de proporção
round(prop.table(TabPaisRela,1)*100,1)##
## 1 2
## 1 43.2 56.8
## 2 54.9 45.1round(prop.table(TabPaiTrab,1)*100,1)##
## 1 2
## 1 38.6 61.4
## 2 37.3 62.7round(prop.table(TabRelTrab,1)*100,1)##
## 1 2
## 1 38.3 61.7
## 2 37.5 62.5Um gráfico de barras
barplot(TabPaiTrab, main = "Mora com os pais X Trabalho",
beside = TRUE,col = c("yellow","blue"), density = 45, angle = 45,
ylim = c(0,40),
legend = rownames(TabPaiTrab))
Para uma variável qualitativa e uma variável quantitativa
um boxplot
Verificar o nível de estresse dos trabalhadores.
library(flextable) ## Warning: package 'flextable' was built under R version 4.1.2summary(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
## boxplot(Estresse~Trabalha,
data = Questionario_Estresse,main="Gráfico 2 - Relação Estresse x Trabalho",
col=c("aquamarine","red"), horizontal = T,
xlab = "Nível de Estresse", ylab = "Trabalha")
Estresse relacionado a quem mora com os pais
boxplot(Estresse~Mora_pais,
data = Questionario_Estresse,main="Gráfico 3 - Relação Estresse x Pais",
col=c("aquamarine","red"), horizontal = T,
xlab = "Nível de Estresse", ylab = "Mora com os pais")
## Verificar o níverl de estresse de quem namora
boxplot(Estresse~Namorado_a,
data = Questionario_Estresse,main="Gráfico 4 - Relação Estresse x Relacionamento",
col=c("blue","green"), horizontal = T,
xlab = "Nível de Estresse", ylab = "Relacionamento")
Resumo ## Media
mediaest = mean(Questionario_Estresse$Estresse)
mediaest## [1] 27.82105Moda
tabela_estresse=table(Questionario_Estresse$Estresse)
tabela_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 2Mediana
medest=median(Questionario_Estresse$Estresse)
medest## [1] 27Variância
Varianciaest=var(Questionario_Estresse$Estresse)
Varianciaest## [1] 56.85062Desvio-padrão
despadest=Varianciaest^(0.5)
despadest## [1] 7.539935Coeficiente de variação
CVest = (despadest/mediaest)*100
CVest## [1] 27.10154Estudo complementar
Iremos testar tres variaveis :a) quam mora com os pais, b) tem relacionamentos , C) trabalham, o quanto esses fatores influem no desempenho.
library(dplyr)## Warning: package 'dplyr' was built under R version 4.1.2##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionQuestionario_Estresse = Questionario_Estresse %>%
mutate(
Tripla_combinacao = case_when(
Trabalha=="Trabalha" & Namorado_a=="Namora" & Mora_pais=="Mora" ~ "Trabalha,Namora e Mora",
Trabalha=="Trabalha" & Namorado_a=="Namora" & Mora_pais=="Não Mora" ~ "Trabalha,Namora e Não Mora",
Trabalha=="Trabalha" & Namorado_a=="Não Namora" & Mora_pais=="Mora" ~ "Trabalha,Não Namora e Mora" ,
Trabalha=="Trabalha" & Namorado_a=="Não Namora" & Mora_pais=="Não Mora" ~ "Trabalha,Não Namora e Não Mora",
Trabalha=="Não Trabalha" & Namorado_a=="Namora" & Mora_pais=="Mora" ~ "Não Trabalha,Namora e Mora" ,
Trabalha=="Não Trabalha" & Namorado_a=="Namora" & Mora_pais=="Não Mora" ~ "Não Trabalha,Namora e Não Mora" ,
Trabalha=="Não Trabalha" & Namorado_a=="Não Namora" & Mora_pais=="Mora" ~ "Não Trabalha,Não Namora e Mora" ,
Trabalha=="Não Trabalha" & Namorado_a=="Não Namora" & Mora_pais=="Não Mora" ~ "Não Trabalha,Não Namora e Não Mora" ,
TRUE ~ "5. Outro Caso"))
tabtriplares = table(Questionario_Estresse$Tripla_combinacao)
tabtriplares##
## 5. Outro Caso
## 95CONCLUSÃO
Muitos são os fatores que servem de pilares para o estresse. através desse estudo foi possível avaliarmos, três desses pilares, 1) morar com os pais, 2) trabalhar e 3) namorar. Em linhas gerais, foi observado o nivel de estresse dos estudantes que participaram da pesquisa, desta forma foi constatado que a maioria dos alunos se encontram em niveis altissimos de estresse.A linguagem R se mostrou uma eficiente ferramenta para o tratamento das informações!