Atividade 2 - gráfico para variáveis qualitativas

CARREGANDO BASE DE DADOS

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/carol/OneDrive/Documentos/UNIRIO/Quinto Periodo/Questionario_Estresse.xls", 
    sheet = "Dados")

Passo 2 - Transformando os dados

Questionario_Estresse$`Namorado(a)` <- ifelse(Questionario_Estresse$`Namorado(a)` ==1, "Sim", "Nao")
Questionario_Estresse$Mora_pais <- ifelse(Questionario_Estresse$Mora_pais ==1, "Sim", "Nao")
Questionario_Estresse$RJ <- ifelse(Questionario_Estresse$RJ ==1, "Natural do RJ", "Natural de outras cidades")
Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha ==1, "Sim", "Nao")

Passo 3 - Visualizando os dados

summary(Questionario_Estresse)
##      Aluno          Turma        Mora_pais              RJ           
##  Min.   : 1.0   Min.   :1.000   Length:95          Length:95         
##  1st Qu.:24.5   1st Qu.:1.000   Class :character   Class :character  
##  Median :48.0   Median :2.000   Mode  :character   Mode  :character  
##  Mean   :48.0   Mean   :2.074                                        
##  3rd Qu.:71.5   3rd Qu.:3.000                                        
##  Max.   :95.0   Max.   :3.000                                        
##                                                                      
##  Namorado(a)          Trabalha           Desempenho       Estresse    
##  Length:95          Length:95          Min.   :5.820   Min.   :12.00  
##  Class :character   Class :character   1st Qu.:8.500   1st Qu.:22.50  
##  Mode  :character   Mode  :character   Median :8.700   Median :27.00  
##                                        Mean   :8.594   Mean   :27.82  
##                                        3rd Qu.:9.050   3rd Qu.:33.00  
##                                        Max.   :9.700   Max.   :44.00  
##                                                                       
##     Créditos      Horas_estudo  
##  Min.   :15.00   Min.   :19.00  
##  1st Qu.:23.00   1st Qu.:25.00  
##  Median :24.00   Median :30.00  
##  Mean   :24.95   Mean   :30.73  
##  3rd Qu.:27.00   3rd Qu.:35.00  
##  Max.   :49.00   Max.   :60.00  
##  NA's   :1

Passo 4 - tabela para variavel qualitativa

Alunos que namoram

tabela_namora <- table(Questionario_Estresse$`Namorado(a)`)
tabela_namora
## 
## Nao Sim 
##  48  47

Naturalidade

tabela_naturalidade <- table(Questionario_Estresse$RJ)
tabela_naturalidade
## 
## Natural de outras cidades             Natural do RJ 
##                        62                        33

Passo 5 - tabela com proporcao arredondada

Alunos que namoram

round(prop.table(tabela_namora)*100,2) 
## 
##   Nao   Sim 
## 50.53 49.47

Naturalidade

round(prop.table(tabela_naturalidade)*100,2)
## 
## Natural de outras cidades             Natural do RJ 
##                     65.26                     34.74

Passo 6 - Graficos de pizza

Grafico 1 - Alunos que namoram

pie(tabela_namora, main = "Grafico Pizza 1 - Alunos que namoram", col=c("#a85ac4","#f07dde"),
    labels = c("50.53%", "49.47%"))
legend("topright", fill=c("#a85ac4","#f07dde"), legend=c("Não", "Sim"))

Grafico 2 - Naturalidade

pie(tabela_naturalidade, main = "Grafico Pizza 2 -  Naturalidade", col=c("#48fa98","#ddf558"),
    labels = c("65.26%", "34.74%"))
legend("topright", fill=c("#48fa98","#ddf558"), legend=c("Natural de outras cidades", "Natural do RJ"))

Interpretação

Ao observamos os dois gráficos podemos perceber que a quantidade dos alunos que namoram está bem dividida, apesar de uma porcentagem um pouco maior de 50,53% não namorarem.

Agora quanto a naturalidade desses alunos encontramos, em grande maioria, o total de 65,26%, que não são naturais da cidade do Rio de Janeiro.