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:

  Dessa forma, podemos concluir que o número de alunos os quais trabalham e estudam é menor do que aqueles que somente estudam. Sendo assim espera-se a redução do estresse entre os alunos do curso de psicologia.