Trabalho 4
JT
29/11/2021
#—————————- Importando data do Excel #—————————-
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/jmachado/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
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>#—————————- Associando os valores dos dados #—————————-
Questionario_Estresse$Mora_pais = factor(Questionario_Estresse$Mora_pais, levels = c("1","2"), labels = c("Mora","Não Mora"))
Questionario_Estresse$Namorado_a = factor(Questionario_Estresse$Namorado_a, levels = c("1","2"), labels = c("Namora","Não Namora"))
Questionario_Estresse$Trabalha = factor(Questionario_Estresse$Trabalha, levels = c("1","2"), labels = c("Trabalha","Não Trabalha"))
head(Questionario_Estresse)## # A tibble: 6 x 10
## Aluno Turma Mora_pais RJ Namorado_a Trabalha Desempenho Estresse Créditos
## <dbl> <dbl> <fct> <dbl> <fct> <fct> <dbl> <dbl> <dbl>
## 1 1 1 Não Mora 2 Não Namora Não Traba~ 8.89 23 27
## 2 2 1 Mora 1 Não Namora Não Traba~ 8.8 24 28
## 3 3 1 Não Mora 2 Não Namora Não Traba~ 8 25 25
## 4 4 1 Não Mora 2 Namora Trabalha 8.8 38 21
## 5 5 1 Não Mora 2 Não Namora Trabalha 8.9 41 18
## 6 6 1 Não Mora 2 Namora Trabalha 8.1 25 29
## # ... with 1 more variable: Horas_estudo <dbl>#———————– Cruzando dados das variáveis qualitativas #———————–
#———————– Mora com os pais x Possui Relacionamento #———————–
TabelaPaisNamora = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Namorado_a)
TabelaPaisNamora##
## Namora Não Namora
## Mora 19 25
## Não Mora 28 23#———————– Mora com os pais x Trabalha #———————–
TabelaPaisTrabalha = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Trabalha)
TabelaPaisTrabalha##
## Trabalha Não Trabalha
## Mora 17 27
## Não Mora 19 32#———————– Namora x Trabalha #———————–
TabelaNamoraTrabalha = table(Questionario_Estresse$Namorado_a,Questionario_Estresse$Trabalha)
TabelaNamoraTrabalha##
## Trabalha Não Trabalha
## Namora 18 29
## Não Namora 18 30#—————————————————————– Juntando em uma tabela tripla os tres conjuntos de dados #—————————————————————–
TabelaNamoraTrabalhaPais = table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Namorado_a,Questionario_Estresse$Trabalha)
TabelaNamoraTrabalhaPais## , , = Trabalha
##
##
## Namora Não Namora
## Mora 8 9
## Não Mora 10 9
##
## , , = Não Trabalha
##
##
## Namora Não Namora
## Mora 11 16
## Não Mora 18 14#————————————————— Colocando as três tabelas em formatação de proporção #—————————————————
#———————— Mora com os Pais x Namora #————————
round(prop.table(TabelaPaisNamora,1)*100,1)##
## Namora Não Namora
## Mora 43.2 56.8
## Não Mora 54.9 45.1#————————– Mora com os Pais x Trabalha #————————–
round(prop.table(TabelaPaisTrabalha,1)*100,1)##
## Trabalha Não Trabalha
## Mora 38.6 61.4
## Não Mora 37.3 62.7#—————- Namora x Trabalha #—————-
round(prop.table(TabelaNamoraTrabalha,1)*100,1)##
## Trabalha Não Trabalha
## Namora 38.3 61.7
## Não Namora 37.5 62.5barplot(TabelaPaisTrabalha, main = "Mora X Trab",
beside = TRUE,col = c("brown","blue"), density = 70, angle = 55,
ylim = c(0,40),
legend = rownames(TabelaPaisTrabalha))
#———– Boxplot das variaveis #———–
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 Mora :44 Min. :1.000 Namora :47
## 1st Qu.:24.5 1st Qu.:1.000 Não Mora:51 1st Qu.:1.000 Não Namora:48
## Median :48.0 Median :2.000 Median :2.000
## Mean :48.0 Mean :2.074 Mean :1.653
## 3rd Qu.:71.5 3rd Qu.:3.000 3rd Qu.:2.000
## Max. :95.0 Max. :3.000 Max. :2.000
##
## Trabalha Desempenho Estresse Créditos
## Trabalha :36 Min. :5.820 Min. :12.00 Min. :15.00
## Não Trabalha:59 1st Qu.:8.500 1st Qu.:22.50 1st Qu.:23.00
## Median :8.700 Median :27.00 Median :24.00
## Mean :8.594 Mean :27.82 Mean :24.95
## 3rd Qu.:9.050 3rd Qu.:33.00 3rd Qu.:27.00
## 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
## #——————- Fazendo um boxplot correlacionando stress com quem Trabalha #——————-
boxplot(Estresse~Trabalha,
data = Questionario_Estresse,main="Gráfico 1 - correlacionando stress x Trabalho",
col=c("red","green"), horizontal = T,
xlab = "Escala de Stress", ylab = "Trabalha")
#——————- Fazendo um boxplot correlacionando stress com quem Mora com os Pais #——————-
boxplot(Estresse~Mora_pais,
data = Questionario_Estresse,main="Gráfico 2 - correlacionando Stress x morar com os Pais",
col=c("blue","yellow"), horizontal = T,
xlab = "Escala de Stress", ylab = "Mora com os pais")
#——————- Fazendo um boxplot correlacionando stress com quem Namora #——————-
boxplot(Estresse~Namorado_a,
data = Questionario_Estresse,main="Gráfico 3 - correlacionando Stress x Namoro",
col=c("gray","purple"), horizontal = T,
xlab = "Escala de Stress", ylab = "Relacionamento")
#————- Calculando a Média #————-
media = mean(Questionario_Estresse$Estresse)
media## [1] 27.82105#————- Achando do desvio Padrão #————-
Variancia=var(Questionario_Estresse$Estresse)
Variancia## [1] 56.85062Desviopadr = Variancia^(0.5)
Desviopadr## [1] 7.539935