———————————————————

PESQUISA SOBRE O PERFIL DOS ALUNOS QUE APRESENTAM ESTRESSE APLICADO EM DUAS TURMAS DE PSICOLOGIA

———————————————————

Dados extraidos da planilha em excel

library(readxl)
Questionario_Estresse <- read_excel("C:/Estatistica/Questionario_Estresse.xls", 
                                    sheet = "Dados")
View(Questionario_Estresse)

Tabela resultado da pesquisa

Pesquisa realizada com a participação de 95 alunos.

tabela <- table(Questionario_Estresse$Mora_pais)
tabela
## 
##  1  2 
## 44 51

Demonstração 1 - alunos que moram com os pais: 44 afirmaram morar com os pais, enquanto que, 51 responderam não morar.

tabela4 <- table(Questionario_Estresse$RJ)
tabela4
## 
##  1  2 
## 33 62

Demonstração 2 - alunos que são naturais do Rio de Janeiro: 33 afirmaram ser natural do RJ, enquanto que, 62 responderam ser natural de outras Cidades.

tabela3 <- table(Questionario_Estresse$Namorado_a)
tabela3
## 
##  1  2 
## 47 48

Demonstração 3 - alunos que possuem algum tipo de relacionamento: 47 afirmaram ser ter namorado (a), enquanto que, 48 responderam não possuir um relacionamento.

Grafico de Pizza

pie (tabela,main = "Demonstração 1 - Mora com os pais", col=c("orange" ,"violetred"))

1- Mora com os pais
2- Não mora

pie (tabela4,main = "Demonstração 2 - Natural do Rio de Janeiro", col=c("tan3" ,"slategray4"))

1- Natural do Rio de Janeiro
2- Outras Cidades

pie (tabela3,main = "Demonstração 3 - Possui um relacionamento", col=c("steelblue","thistle2"))

1- Namora
2- Não namora

Resumo

Nesta amostragem foi possível observar que a demonstração 3 foi a mais equilibrada entre as respostas, não sendo um fator relevante para a pesquisa.