• Base de Dados
  • 1) Diagrama de Dispersão e Coeficientes de Correlação
    • 1.1. Estresse x Horas de Estudo
    • È Possivel vizualizar a tendência que indica o aumento do nivel de estresse de acordo com a quantidade maior de horas de estudo
    • 1.2. Estresse x Desempenho
    • È Possivel vizualizar que a maioria dos alunos que tem um desempenho melhor tem um nivel de Estresse equiparado.
  • 2) Matriz de Correlação
  • 3) Estatisticas por Grupo
    • 3.1) Desempenho x Trabalha
    • Apesar da Presença de “Outliers”, é possivel identificar que o desempenho dos alunos que trabalham é levemente maior do que os que não trabalham
    • Em média, o desempenho dos alunos que não trabalham é melhor do que os trabalham, já que que alinha mediana tende para escala maior.
    • ambos são assimetricos
    • A Media de Desempenho de quem não trabalha é de 8,63, com desvio padrão de 0,70.
    • A Media de Desempenho de quem trabalha é de 8,54, com desvio padrão de 0,90
  • 3.2) Desempenho x Namora
    • Apesar da Presença de “Outliers”, é possivel identificar que o desempenho dos alunos que namoram é maior do que os que não namoram
    • os dois casos são assimetricos,
    • A Média de Desempenho de quem não trabalha é de 8,75, com desvio padrão de 0,79.
    • A Média de Desempenho de quem trabalha é de 8,44, com desvio padrão de 0,74.

Base de Dados

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

1) Diagrama de Dispersão e Coeficientes de Correlação

1.1. Estresse x Horas de Estudo

plot(Questionario_Estresse$Estresse,Questionario_Estresse$Horas_estudo,pch=19,col="red",xlab = "NIVEL DE ESTRESSE",ylab = "HORAS DE ESTUDO",main = "Estresse x Horas de Estudo")
abline(lsfit(Questionario_Estresse$Estresse,Questionario_Estresse$Horas_estudo), col="blue")

È Possivel vizualizar a tendência que indica o aumento do nivel de estresse de acordo com a quantidade maior de horas de estudo

1.2. Estresse x Desempenho

plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse,pch=19,col="red",xlab = "NIVEL DE ESTRESSE",ylab = "DESEMPENHO",main = "Estresse x Desempenho")
abline(lsfit(Questionario_Estresse$Desempenho,Questionario_Estresse$Estresse), col="black")

È Possivel vizualizar que a maioria dos alunos que tem um desempenho melhor tem um nivel de Estresse equiparado.

2) Matriz de Correlação

library(corrplot)
## corrplot 0.84 loaded
variaveis_quanti<-c("Desempenho","Estresse","Créditos", "Horas_estudo")

Correlacao_questionario<-cor(Questionario_Estresse[,variaveis_quanti])

corrplot(Correlacao_questionario,method="pie")

library(psych)

summary(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  
##

3) Estatisticas por Grupo

3.1) Desempenho x Trabalha

Questionario_Estresse$Trabalha<-ifelse(Questionario_Estresse$Trabalha==1,"Trabalha", "Não Trabalha")
Questionario_Estresse$`Namorado(a)`<-ifelse(Questionario_Estresse$`Namorado(a)`==1,"Namora", "Não Namora")

boxplot(Questionario_Estresse$Desempenho ~ Questionario_Estresse$Trabalha,
        horizontal = T,
        col=c("red","blue"),
        main = "Desempenho x Trabalha",
        xlab = "Desempenho",
        ylab = "Trabalha")

Apesar da Presença de “Outliers”, é possivel identificar que o desempenho dos alunos que trabalham é levemente maior do que os que não trabalham

Em média, o desempenho dos alunos que não trabalham é melhor do que os trabalham, já que que alinha mediana tende para escala maior.

ambos são assimetricos

describeBy(Questionario_Estresse$Desempenho ~ Trabalha, Questionario_Estresse)
## 
##  Descriptive statistics by group 
## Trabalha: Não Trabalha
##              vars  n  mean    sd median trimmed   mad min  max range  skew
## Aluno           1 59 49.31 24.57   49.0   49.55 28.17   1 95.0  94.0 -0.05
## Turma           2 59  2.12  0.74    2.0    2.14  1.48   1  3.0   2.0 -0.19
## Mora_pais       3 59  1.54  0.50    2.0    1.55  0.00   1  2.0   1.0 -0.17
## RJ              4 59  1.68  0.47    2.0    1.71  0.00   1  2.0   1.0 -0.74
## Namorado(a)*    5 59  1.51  0.50    2.0    1.51  0.00   1  2.0   1.0 -0.03
## Trabalha*       6 59  1.00  0.00    1.0    1.00  0.00   1  1.0   0.0   NaN
## Desempenho      7 59  8.63  0.70    8.8    8.72  0.44   6  9.6   3.6 -1.68
## Estresse        8 59 27.93  7.38   29.0   27.88  7.41  12 44.0  32.0  0.02
## Créditos        9 58 25.43  2.68   25.5   25.54  2.22  20 32.0  12.0 -0.15
## Horas_estudo   10 59 31.56  6.93   30.0   31.06  4.45  20 60.0  40.0  1.27
##              kurtosis   se
## Aluno           -0.86 3.20
## Turma           -1.21 0.10
## Mora_pais       -2.01 0.07
## RJ              -1.47 0.06
## Namorado(a)*    -2.03 0.07
## Trabalha*         NaN 0.00
## Desempenho       3.60 0.09
## Estresse        -0.57 0.96
## Créditos        -0.29 0.35
## Horas_estudo     3.11 0.90
## ------------------------------------------------------------ 
## Trabalha: Trabalha
##              vars  n  mean    sd median trimmed   mad   min  max range  skew
## Aluno           1 36 45.86 32.14   40.5   45.40 44.48  4.00 93.0 89.00  0.12
## Turma           2 36  2.00  0.93    2.0    2.00  1.48  1.00  3.0  2.00  0.00
## Mora_pais       3 36  1.53  0.51    2.0    1.53  0.00  1.00  2.0  1.00 -0.11
## RJ              4 36  1.61  0.49    2.0    1.63  0.00  1.00  2.0  1.00 -0.44
## Namorado(a)*    5 36  1.50  0.51    1.5    1.50  0.74  1.00  2.0  1.00  0.00
## Trabalha*       6 36  1.00  0.00    1.0    1.00  0.00  1.00  1.0  0.00   NaN
## Desempenho      7 36  8.54  0.90    8.7    8.67  0.56  5.82  9.7  3.88 -1.55
## Estresse        8 36 27.64  7.90   26.0   27.53  8.15 13.00 44.0 31.00  0.15
## Créditos        9 36 24.17  5.62   24.0   23.70  4.45 15.00 49.0 34.00  2.19
## Horas_estudo   10 36 29.36  7.72   30.0   28.63  7.41 19.00 59.0 40.00  1.46
##              kurtosis   se
## Aluno           -1.68 5.36
## Turma           -1.87 0.15
## Mora_pais       -2.04 0.08
## RJ              -1.86 0.08
## Namorado(a)*    -2.05 0.08
## Trabalha*         NaN 0.00
## Desempenho       2.21 0.15
## Estresse        -0.84 1.32
## Créditos         8.08 0.94
## Horas_estudo     3.69 1.29

A Media de Desempenho de quem não trabalha é de 8,63, com desvio padrão de 0,70.

A Media de Desempenho de quem trabalha é de 8,54, com desvio padrão de 0,90

3.2) Desempenho x Namora

boxplot(Questionario_Estresse$Desempenho ~ Questionario_Estresse$`Namorado(a)`,
        horizontal = T,
        col=c("yellow","gray"),
        main = "Desempenho x Namora",
        xlab = "Desempenho",
        ylab = "Namora")

Apesar da Presença de “Outliers”, é possivel identificar que o desempenho dos alunos que namoram é maior do que os que não namoram

os dois casos são assimetricos,

describeBy(Questionario_Estresse$Desempenho ~ Namorado(a), Questionario_Estresse)
## 
##  Descriptive statistics by group 
## Namorado(a): Namora
##              vars  n  mean    sd median trimmed   mad   min  max range  skew
## Aluno           1 47 50.87 26.74   52.0   51.00 34.10  4.00 95.0 91.00 -0.01
## Turma           2 47  2.15  0.78    2.0    2.18  1.48  1.00  3.0  2.00 -0.25
## Mora_pais       3 47  1.60  0.50    2.0    1.62  0.00  1.00  2.0  1.00 -0.38
## RJ              4 47  1.70  0.46    2.0    1.74  0.00  1.00  2.0  1.00 -0.86
## Namorado(a)*    5 47  1.00  0.00    1.0    1.00  0.00  1.00  1.0  0.00   NaN
## Trabalha*       6 47  1.38  0.49    1.0    1.36  0.00  1.00  2.0  1.00  0.47
## Desempenho      7 47  8.75  0.79    8.8    8.87  0.44  5.82  9.7  3.88 -2.04
## Estresse        8 47 28.40  7.31   29.0   28.44  7.41 15.00 44.0 29.00 -0.06
## Créditos        9 47 24.89  2.81   24.0   25.13  2.97 15.00 30.0 15.00 -0.92
## Horas_estudo   10 47 31.81  7.18   30.0   31.31  5.93 19.00 60.0 41.00  1.25
##              kurtosis   se
## Aluno           -1.17 3.90
## Turma           -1.35 0.11
## Mora_pais       -1.90 0.07
## RJ              -1.29 0.07
## Namorado(a)*      NaN 0.00
## Trabalha*       -1.82 0.07
## Desempenho       4.99 0.12
## Estresse        -0.79 1.07
## Créditos         1.58 0.41
## Horas_estudo     3.19 1.05
## ------------------------------------------------------------ 
## Namorado(a): Não Namora
##              vars  n  mean    sd median trimmed   mad  min   max range  skew
## Aluno           1 48 45.19 28.36  43.50   45.05 38.55  1.0 92.00 91.00  0.04
## Turma           2 48  2.00  0.85   2.00    2.00  1.48  1.0  3.00  2.00  0.00
## Mora_pais       3 48  1.48  0.50   1.00    1.48  0.00  1.0  2.00  1.00  0.08
## RJ              4 48  1.60  0.49   2.00    1.62  0.00  1.0  2.00  1.00 -0.41
## Namorado(a)*    5 48  1.00  0.00   1.00    1.00  0.00  1.0  1.00  0.00   NaN
## Trabalha*       6 48  1.38  0.49   1.00    1.35  0.00  1.0  2.00  1.00  0.50
## Desempenho      7 48  8.44  0.74   8.62    8.55  0.47  5.9  9.39  3.49 -1.57
## Estresse        8 48 27.25  7.79  26.00   27.12  7.41 12.0 44.00 32.00  0.21
## Créditos        9 47 25.00  5.08  24.00   24.62  5.93 17.0 49.00 32.00  2.06
## Horas_estudo   10 48 29.67  7.29  29.00   29.02  5.93 20.0 59.00 39.00  1.40
##              kurtosis   se
## Aluno           -1.39 4.09
## Turma           -1.65 0.12
## Mora_pais       -2.03 0.07
## RJ              -1.87 0.07
## Namorado(a)*      NaN 0.00
## Trabalha*       -1.79 0.07
## Desempenho       2.35 0.11
## Estresse        -0.55 1.12
## Créditos         8.20 0.74
## Horas_estudo     3.51 1.05

A Média de Desempenho de quem não trabalha é de 8,75, com desvio padrão de 0,79.

A Média de Desempenho de quem trabalha é de 8,44, com desvio padrão de 0,74.