Trabalho02_MarcosTulioTeixeira

##Pesquisa sobre o grau de estresse aplicada em turmas do curso de psicologia

library(readxl)
Quest <- read_excel("C:/Users/Marcus Tulio/Desktop/MESTRADO2022_1/DISCIPLINAS/Estatistica/Mestrado_engenharia/Base_de_dados-master/Base_de_dados-master/Questionario_Estresse.xls", 
                    sheet = "Dados", col_types = c("numeric", 
                                                   "numeric", "numeric", "numeric", 
                                                   "numeric", "numeric", "numeric", 
                                                   "numeric", "numeric", "numeric"))
View(Quest)



# Grafico para variavel qualitativa
tabela <- table(Quest$Trabalha)
    pie(tabela,main="Grafico 1 - Trabalha",col=c("#db0fd8","#09b8ed"),c("1-Sim(36)","2-Nao(59)"))

Conclusão:

  É possível avaliar no gráfico que o número de alunos, durante o período avaliado, que estudam e trabalham é menor do que aqueles que somente estudam.
  Espera-se que o progresso de pesquisas relacionadas a percepção do estresse possam ser cada vez mais relevantes e sejam capazes de auxiliar a identificação de patologias e doenças relacionadas ao estresse.