Atividade sobre gráficos - Aula 02

PESQUISA SOBRE GRAU DE ESTRESSE APLICADA EM TURMAS DO CURSO DE PSICOLOGIA

Resultado de pesquisa disponibilizado para aplicação de conceitos em R nas aulas de Estatística aplicada à Engenharia.

Importação dos dados

Os dados foram importados de uma planilha Excel.

library(readxl)
Estresse <- read_excel("Base_de_dados-master/Questionario_Estresse.xls", 
                                    sheet = "Dados")
View(Estresse)

Tratamento dos dados

Para essa pesquisa, participaram 95 alunos de 3 turmas diferentes.

Participação dos alunos por turma

# Participantes por turma
turma = table (Estresse$Turma)
turma

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

# Gráfico de barras
barplot(turma,
        main = "Alunos participantes",
        xlab = "Turmas",
        ylab = "Quantidade de alunos",
        col = c("tomato", "royalblue", "purple")
        )

Características dos alunos

#Mora com os pais:

mora = table(Estresse$Mora_pais)
mora

## 
##  1  2 
## 44 51

pie (mora, 
     main = "Alunos que moram com seus pais",
     col = c("lightpink", "green"),
     labels = c(44, 51))
legend(1,1,
       legend = c("SIM", "NÃO"),col = c("lightpink", "green"), pch = rep(20,6))

#Residentes no RJ:

rio = table (Estresse$RJ)
rio

## 
##  1  2 
## 33 62

pie (rio,
     main = "Alunos residentes no RJ",
     col = c("orchid1", "seagreen2"),
     labels = c(33, 62))
legend(1,1,
       legend = c("Mora no RJ", "Outros"),col = c("orchid1", "seagreen2"), pch = rep(20,6))

namo = table(Estresse$Namorado_a)
namo

## 
##  1  2 
## 47 48

pie (namo,
     main = "Alunos que namoram",
     col = c("firebrick1", "snow4"),
     labels = c(47, 48))
legend(1,1,
       legend = c("SIM", "NÃO"),col = c("firebrick1", "snow4"), pch = rep(20,6))

# Trabalho

trampo = table(Estresse$Trabalha)
trampo

## 
##  1  2 
## 36 59

pie (trampo,
     main = "Alunos que Trabalham",
     col = c("orange1", "turquoise"),
     labels = c(36, 59))
legend(1,1,
       legend = c("SIM", "NÃO"),col = c("orange1", "turquoise"), pch = rep(20,6))

Conclusões

A partir dos dados obtidos, foram feitas análises quanto a participação das turmas e suas características.

Como resultados, observa-se:

• maior participação de alunos da turma 3;

• a maioria dos alunos não moram com seus pais;

• a maior parte dos alunos moram fora do Rio de Janeiro;

• aproximadamente metade dos alunos namoram;

• e a maioria não trabalha.

As demais variáveis da pesquisa não foram avaliadas nesse trabalho.

Até mais!