Base de dado Questionário de Estresse

Nessa base de dados podemos observar 10 variáveis sobre alunos e seu desempenho através do estresse e hora de estudo.

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/izabe/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Análise através de tabela

As duas variáveis que iremos observar e analisar são o desempenho conforme o tempo de estudo, o gráfico utilizado será o plot, nele vamos encontrar um grpafico com bolinhas marcando o tempo de estudo e o desempenho que esse aluno obteve. Através dele vamos poder observar quanto tempo de estudo você consegue um melhor desempenho ou olha para o lado de quanto tempo um aluno de baixo desempenho estudo.

plot(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho,pch=19,col="yellow",
     main="diagrama",ylab = "Tempo de Estudo",xlab = "desempenho")

Agora iremos colocar uma linhas para analisar que mostrar onde irá mostrar que quanto maior o tempo de estudo maior será o desempenho do aluno na escola.

plot(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho,pch=19,col="yellow",
     main="diagrama",ylab = "Tempo de Estudo",xlab = "desempenho")

abline(lsfit(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho),col="purple")

Corrplot

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
Estressedesempenho <-Questionario_Estresse %>% select(Desempenho,Horas_estudo) %>% cor()
corrplot(Estressedesempenho, method= "circle")

Nesse corrplot podemos analisar melhor as variáveis, vendo que quanto maior a hora de estudo mair será seu desempenho.