Atividade 2 - Referente a Base de Dados Questionário de Estresse"

Base de Dados

Foi realizado um questionário com 95 alunos, segmentados em 3 Turmas: 2007.2, 2008.1 e 2008.2, cuja base de dados foi extraída conforme código abaixo:

library(readxl)
Dados <- read_excel("/Volumes/TOSHIBA EXT/Mestrado UFF/2021/Estatistca/Base_de_dados-master/Questionario_Estresse.xls", 
                  sheet = "Dados")

View(Dados)

Segmentação por Turma

Para observar a segmentação de alunos por turma, foi nomeada uma tabela que receberá esses dados:

Tabela_porturma <- table(Dados$Turma)
View(Tabela_porturma)

Tabela_porturma
## 
##  1  2  3 
## 28 32 35

E então, a visualização gráfica aos dados da tabela encontrada:

Grafico001 <-pie(Tabela_porturma, main = "Alunos por Turma", col= c("turquoise3", "thistle2","seashell4"))

Grafico001
## NULL

Sendo a Turma 1 referente a 2007.2, Turma 2 a 2008.1 e Turma 3 a 2008.2.

Segmentação de alunos que estão trabalhando durante o curso

Além disso, foi observado a análise a respeito se os alunos das turmas observadas trabalham durante o curso, realizando a mesma metodologia anterior, criando uma tabela e plotando gráfico:

Tabela_trabalha <- table(Dados$Trabalha)
Grafico002 <- pie(Tabela_trabalha, main="Alunos que trabalham e não trabalham", col= c("turquoise3", "thistle2"))

Grafico002
## NULL

Sendo a referência 1, aos alunos que trabalham, 38%, e 2, aos que não trabalham.

Conclusão

Ao observar a base de dados, foi encontrado que há distribuição próxima de alunos por turma, com 29% dos alunos na Turma de 2007.2, com 28 alunos, 34% dos alunos na Turma de 2008.1, com 32 alunos, e, por fim, 37& na turma 2008.2, com 35 alunos. Destes, foi observado que a grande maioria, com 62% ao total, não trabalha, podendo ser uma das justificativas de dedicação média de horas de estudos semanais ter tido o resultado, aproixmado, de 30,7 horas, conforme código aplicado:

media_por <- mean(Dados$Horas_estudo)
media_por
## [1] 30.72632