Questionario_Estresse

Dados importados do Excel

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Alexandra/Desktop/estatistica/pasta 2/Questionario_Estresse.xls", 
    sheet = "Dados")
View(Questionario_Estresse)

Tabela com um total de de 95 alunos entrevistados:

tabela1 <- table(Questionario_Estresse$Trabalha)
tabela1
## 
##  1  2 
## 36 59

Foi identificado que dos 95 alunos que responderam o questionário, 36 trabalham e 59 não trabalham!!

Gráfico

No gráfico abaixo temos a representação: sendo 1 para os que trabalham e 2 para os que não trabalham.

 pie(tabela1)  

pie (tabela1,main = "Gráfico 1 - Trabalham ou Não trabalham", col=c("aquamarine", "tan1"))

Conclusão

Pelos dados coletados acima, obtidos a partir de uma pesquisa feita com 95 alunos do curso de Psicologia, podemos observar pelas premissas, “trabalham ou não trabalham”, que a maior parte dos entrevistados,ou seja 59 alunos não trabalham.