Introdução

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(corrplot)
## corrplot 0.90 loaded
library(rio)
library(readxl)
Questionario_Estresse <-read_excel("C:/Users/Felipe/Downloads/Base_de_dados-master/Questionario_Estresse.xls")

Coeficiente de relação

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>
plot(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Estresse,pch=19,col ="green" ,main = "Grafico 1 - Relação entre o Estresse dos alunos e as Horas de Estudo",ylab = "Estresse",xlab = "Horas de Estudo")
abline(lsfit(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Estresse),col = "red")

cor(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Estresse)
## [1] 0.303917
MC <-Questionario_Estresse %>% select(Desempenho, Estresse, Horas_estudo) %>% cor()
   MC
##              Desempenho   Estresse Horas_estudo
## Desempenho   1.00000000 0.08257246    0.2231532
## Estresse     0.08257246 1.00000000    0.3039170
## Horas_estudo 0.22315316 0.30391699    1.0000000

Grafico 2

corrplot.mixed(MC,main = "Gráfico 2")

# Minha interpretação Ao analisar o gráfico, podemos ver que os alunos com maiores médias de horas de estudo, possuem um nível de estresse maior. Assim como os alunos que possuem menos horas de estudos, têm menor estresse no dia a dia. Entretanto, aqueles que detém maior horas de estudo, também são responsáveis por obter um desempenho melhor. Enquanto aqueles que levam menos horas de estudo, possuem um desempenho abaixo. Portanto, é possível concluir que, normalmente,quanto maior a hora de estudo, maior o estresse e melhor o desempenho e quanto menor a hora de estudo, menor o estresse e pior o desempenho.