Gráfico 3D - Questionário Estresse

Para este trabalho foi utilizado o gráfico de dispersão do tipo 3D. Este gráfico é utilizado normalmente para explorar as relações potenciais entre três variáveis. Criando este tipo gráfico, em geral, as variáveis de previsão são exibidas nos eixos x e y e a variável resposta é exibida no eixo z. Este gráfico possui recurso que permite visualizá-lo em diferentes ângulos, girando o mesmo e permitindo uma exploração mais ampla das relações entre as variáveis.

Para este gráfico, foi utilizado as variáveis explicativas grau de estresse e horas de estudos, gerando a variável resposta desempenho. O gráfico também foi selecionado por quem trabalha e quem não trabalha. Foi selecionada a opção de mostrar as escalas dos eixos e as linhas de gride da superfície e também os quadrados mínimos.

Com base na análise gráfica e numérica do resumo, infere-se que quem trabalha possui em média um grau de estresse menor (27,63 contra 27,93) e estuda cerca de 2 horas a menos do que quem não trabalha. Por conta da menor carga horaria de estudo, menor tende a ser o desempenho dos estudantes que trabalham. Porém, essa diferença não é muito expressiva, cerca de 8,62 contra 8,54. Remete-se que não implica em demasia o fato do estudante trabalhar com seu grau de estresse ou seu desempenho escolar

library(readxl)
Estresse <- read_excel("C:/EDUARDO SSD/MESTRADO UFF/2019-1/ESTATISTICA - STEVEN/Base_de_dados-master/Questionario_Estresse.xls")
View(Estresse)

library(abind, pos=16)
library(e1071, pos=17)

library(Rcmdr)

## Loading required package: splines

## Loading required package: RcmdrMisc

## Loading required package: car

## Loading required package: carData

## Loading required package: sandwich

## Loading required package: effects

## lattice theme set by effectsTheme()
## See ?effectsTheme for details.

## A interface gráfica do Rcmdr só é lançada no modo interativo

## 
## Attaching package: 'Rcmdr'

## The following object is masked from 'package:car':
## 
##     Confint

library(RcmdrMisc)

Estresse <- within(Estresse, {
  Trabalha <- factor(Trabalha, labels=c('Sim','Não'))
})
library(rgl, pos=16)
library(nlme, pos=17)
library(mgcv, pos=17)

## This is mgcv 1.8-27. For overview type 'help("mgcv-package")'.

scatter3d(Desempenho~Estresse+Horas_estudo|Trabalha, data=Estresse, surface=FALSE, 
  residuals=TRUE, parallel=FALSE, bg="white", axis.scales=TRUE, grid=TRUE, 
  ellipsoid=FALSE)