Atividade 2 - variável categórica

Questionario_Estresse

Dados importados do Excel

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Rodolfo/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Tabela

Tabela com uma amostra de 95 alunos entrevistados:

tabela1 <- table(Questionario_Estresse$Trabalha)
tabela1

## 
##  1  2 
## 36 59

• Observado 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("thistle4", "tan1")) 

* Pesquisa realizada sobre o grau de estresse, aplicada em duas turmas do curso de psicologia, no qual totalizaram 95 alunos entrevistados. Pelos dados coletados e representados podemos observar pelo atributo, “trabalham ou não trabalham”, que a maior parte, 59 alunos não trabalham.