Coleta dos Dados

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/victo/Desktop/Material Estatistica/Base_de_dados-master/Questionario_Estresse.xls")
head(Questionario_Estresse)
## # A tibble: 6 x 10
##   Aluno Turma Mora_pais    RJ `Namorado(a)` Trabalha Desempenho Estresse
##   <dbl> <dbl>     <dbl> <dbl>         <dbl>    <dbl>      <dbl>    <dbl>
## 1     1     1         2     2             2        2       8.89       23
## 2     2     1         1     1             2        2       8.8        24
## 3     3     1         2     2             2        2       8          25
## 4     4     1         2     2             1        1       8.8        38
## 5     5     1         2     2             2        1       8.9        41
## 6     6     1         2     2             1        1       8.1        25
## # ... with 2 more variables: Créditos <dbl>, Horas_estudo <dbl>
library(knitr)
kable(Questionario_Estresse)
Aluno Turma Mora_pais RJ Namorado(a) Trabalha Desempenho Estresse Créditos Horas_estudo
1 1 2 2 2 2 8.89 23 27 27
2 1 1 1 2 2 8.80 24 28 28
3 1 2 2 2 2 8.00 25 25 25
4 1 2 2 1 1 8.80 38 21 30
5 1 2 2 2 1 8.90 41 18 20
6 1 2 2 1 1 8.10 25 29 32
7 1 2 2 2 2 9.20 41 26 25
8 1 1 1 1 1 8.50 20 24 25
9 1 1 1 2 1 8.70 26 20 25
10 1 1 1 2 1 8.30 36 49 59
11 1 1 1 1 1 8.50 37 28 26
12 1 2 2 1 1 9.10 26 23 35
13 1 2 2 2 1 9.03 30 20 35
14 1 1 2 1 2 9.36 31 26 60
15 1 1 1 2 1 8.60 26 30 35
16 1 2 2 2 1 8.53 31 28 33
17 1 2 2 2 1 8.00 27 20 25
18 1 2 2 2 2 9.08 21 27 35
19 1 1 1 2 2 8.50 26 26 30
20 1 1 1 2 1 8.50 25 26 30
21 1 2 2 1 2 8.50 27 24 30
22 1 2 2 1 2 8.50 17 24 24
23 1 2 2 1 2 8.50 20 28 28
24 1 2 2 2 1 8.80 20 24 24
25 1 1 1 2 1 8.00 21 30 33
26 1 1 1 2 2 7.50 24 24 24
27 1 1 1 1 2 9.40 29 24 44
28 1 2 2 1 2 8.50 38 24 44
29 2 1 1 1 2 8.10 35 24 30
30 2 1 2 1 2 8.70 38 26 40
31 2 2 2 1 1 9.50 39 26 40
32 2 1 1 2 2 7.70 30 30 36
33 2 2 2 1 2 8.70 32 30 40
34 2 1 1 2 2 8.94 32 28 36
35 2 2 2 1 2 8.96 31 20 35
36 2 1 1 1 2 9.29 26 28 40
37 2 1 1 2 1 8.79 26 24 30
38 2 2 2 1 2 8.55 25 20 29
39 2 2 2 2 1 5.90 35 20 36
40 2 1 1 2 2 8.50 37 20 30
41 2 1 1 2 2 8.90 26 28 44
42 2 1 2 1 1 9.09 32 24 30
43 2 1 2 2 2 7.80 34 23 40
44 2 2 2 2 2 9.00 29 24 32
45 2 2 2 1 2 8.80 35 23 30
46 2 1 2 2 2 8.90 19 NA 28
47 2 2 2 1 2 9.00 23 25 30
48 2 2 2 2 2 9.12 28 27 33
49 2 2 2 1 2 8.50 30 27 30
50 2 2 2 1 1 9.07 24 26 40
51 2 2 2 2 2 8.89 21 28 40
52 2 2 2 1 2 9.33 30 28 33
53 2 2 1 1 2 8.50 33 26 30
54 2 2 2 2 2 9.20 33 28 30
55 2 2 2 1 2 9.29 16 28 30
56 2 1 1 1 2 9.36 44 26 28
57 2 2 2 2 2 8.64 25 29 40
58 2 1 1 2 1 8.50 26 19 26
59 2 2 2 1 2 8.40 34 27 33
60 2 2 2 1 2 8.80 42 27 33
61 3 1 1 1 1 9.40 25 20 36
62 3 1 2 1 2 9.60 31 24 36
63 3 2 2 1 2 9.00 33 28 32
64 3 1 1 1 2 6.00 24 28 32
65 3 1 2 2 1 7.00 40 17 20
66 3 2 1 1 1 7.00 18 26 24
67 3 1 1 2 2 8.80 30 24 24
68 3 1 1 2 2 8.50 42 24 28
69 3 1 1 2 2 8.82 31 24 29
70 3 1 2 2 2 6.50 22 23 28
71 3 2 2 2 2 8.30 13 20 20
72 3 1 2 2 2 8.40 21 28 21
73 3 2 2 2 2 8.80 20 32 30
74 3 2 2 1 1 9.00 29 24 30
75 3 1 1 2 1 9.00 28 24 30
76 3 1 2 1 1 8.48 30 23 25
77 3 2 2 1 2 8.60 20 23 26
78 3 2 1 1 2 8.80 23 23 30
79 3 1 1 1 1 5.82 16 24 20
80 3 1 2 2 2 6.60 17 20 20
81 3 1 1 1 2 8.50 33 24 29
82 3 2 2 2 2 8.00 32 24 29
83 3 2 2 2 1 8.00 44 20 32
84 3 2 2 2 2 8.20 37 24 25
85 3 2 2 1 1 9.45 33 15 19
86 3 1 2 1 1 9.70 34 27 35
87 3 2 2 2 1 9.39 21 21 25
88 3 2 2 2 1 8.70 13 23 20
89 3 2 2 2 2 8.60 17 24 23
90 3 1 1 1 1 9.30 15 27 23
91 3 2 2 1 1 8.60 22 23 25
92 3 1 1 2 2 9.30 12 27 26
93 3 2 2 1 1 9.40 16 27 24
94 3 1 2 1 2 9.44 27 24 36
95 3 1 2 1 2 9.60 29 24 34

Coeficiente de relação entre as variáveis

rhoc2 <-cor(Questionario_Estresse$Estresse, Questionario_Estresse$Horas_estudo)
rhoc2
## [1] 0.303917

Gráfico de Dispersão

library(ggplot2)
ggplot(Questionario_Estresse) + aes(x = Estresse, y = Horas_estudo) + geom_point(size = 2.2, colour = "#00336f") + labs(x = "Estresse", y = "Horas de Estudo", title = "Horas de Estudo x Estresse", subtitle = "Atividades 6 e 7") + theme_gray()

Análise do gráfico de dispersão

Com base na ilustração do gráfico acima, percebe-se que o nível de Estresse por Horas de Estudo começa a manifestar-se no tempo aproximado de 20 horas. Entre 20 e 30 horas, o nível de estresse é mais concentrado e variado, dos níveis mais baixos aos mais altos de estresse. Os números mais altos foram identificados entre 25 e 35 horas de estudo.

Gráfico Bind2d (Inédito)

ggplot(Questionario_Estresse) + aes(x = Estresse, y = Horas_estudo) + geom_bin2d(size = 0.5, colours = "#E69F00") + labs(x = "Estresse", y = "Horas de Estudo", title = "Horas de Estudo x Estresse", subtitle = "Atividades 6 e 7") + theme_bw()
## Warning: Ignoring unknown parameters: colours

Análise do gráfico inédito e conclusão

O segundo gráfico atesta as afirmações feitas sobre o gráfico de dispersão, quanto à concentração de estresse por hora de estudos e à variação desse estresse nos intervalos mencionados acima.Sendo assim, a fim de evitar a sobrecarga e o estresse, é importante que se estude de 15 horas para menos.