Pesquisa aplicada para conhecer o grau de estresse sobre os alunos de uma turma de Psicologia

library(readxl)
Estres <- read_excel("C:/Users/Windows 10/Desktop/Base_de_dados-master/Questionario_Estresse.xls", 
                     sheet = "Dados")
View(Estres)
Estres$Namorado_a <- ifelse(Estres$Namorado_a==1,"Sim","Nao")
tabela <- table(Estres$Namorado_a)
pie(tabela,main="Gráfico 1 - Alunos que namoram",
    col=c("Skyblue","violetred1"))

Este gráfico demonstra o resultado de uma pesquisa realizada com 95 alunos de duas turmas de psicologia para se analisar o grau de estresse e uma das perguntas do questionário era se os alunos namoravam ou não. Dentre os alunos participantes da pesquisa, 48 não namoram e 47 alunos afirmaram namorar.

Com este resultado percebe-se que a pesquisa ficou praticamente dividida meio a meio e isso pode indicar que o fato de namorar ou não possa não ser um fator que aumente o grau de estresse nos alunos.