Base de Dados: Questionario_Estresse

Importando Base de Dados

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

Criando a tabela dos alunos que moram ou não com os pais

tabela1 <- table(Questionario_Estresse$Mora_pais)
tabela1
## 
##  1  2 
## 44 51

Criando a tabela dos alunos que trabalham ou não

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

Criando o Grafico de pizza da tabela 1

pie(tabela1,main = "Moram ou não com os pais
",  col =c("red","blue"))

Criando o gráfico de pizza da tabela 2

pie(tabela1,main = "Trabalham ou Não
",  col =c("red","blue"))

A base de dados é uma esquisa feita com 95 alunos, clasificando-os em váriaveis quatitativas como nível de estresse, horas de estudo, desempenho entre outras, e algumas variáveis categorias, como se mora ou não com os pais, se trabalha ou não, etc. Para atender a proposta da atividade, criamos a tabela1, para mensurar Quantos desses alunos moram ou não com os pais, e a tabela2 para mensurar quantos trabalham ou não, ambas variaveis categoricas. Chegamos a conclusão que dos 95 alunos a maioria não trabalha, ou seja, 36 trabalha enquanto 59 não, e a mioria não moram com os pais, ou seja, 44 moram enquanto 51 não moram. Considerando 1 sim e 2 para não.