Base de dados

library(readxl)
Questionario_Estresse <- read_excel("Base_de_dados-master (1)/Base_de_dados-master/Questionario_Estresse.xls")

Analisar os dados

summary(Questionario_Estresse)

##      Aluno          Turma         Mora_pais           RJ          Namorado_a   
##  Min.   : 1.0   Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :1.000  
##  1st Qu.:24.5   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
##  Median :48.0   Median :2.000   Median :2.000   Median :2.000   Median :2.000  
##  Mean   :48.0   Mean   :2.074   Mean   :1.537   Mean   :1.653   Mean   :1.505  
##  3rd Qu.:71.5   3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.000  
##  Max.   :95.0   Max.   :3.000   Max.   :2.000   Max.   :2.000   Max.   :2.000  
##                                                                                
##     Trabalha       Desempenho       Estresse        Créditos    
##  Min.   :1.000   Min.   :5.820   Min.   :12.00   Min.   :15.00  
##  1st Qu.:1.000   1st Qu.:8.500   1st Qu.:22.50   1st Qu.:23.00  
##  Median :2.000   Median :8.700   Median :27.00   Median :24.00  
##  Mean   :1.621   Mean   :8.594   Mean   :27.82   Mean   :24.95  
##  3rd Qu.:2.000   3rd Qu.:9.050   3rd Qu.:33.00   3rd Qu.:27.00  
##  Max.   :2.000   Max.   :9.700   Max.   :44.00   Max.   :49.00  
##                                                  NA's   :1      
##   Horas_estudo  
##  Min.   :19.00  
##  1st Qu.:25.00  
##  Median :30.00  
##  Mean   :30.73  
##  3rd Qu.:35.00  
##  Max.   :60.00  
## 

Corrigir dados

Questionario_Estresse$RJ <- ifelse(Questionario_Estresse$RJ==1,"é do RJ","não é do RJ") 
Questionario_Estresse$Namorado_a <- ifelse(Questionario_Estresse$Namorado_a==1,"namora","não namora")
Questionario_Estresse$Trabalha <- ifelse(Questionario_Estresse$Trabalha==1,"trabalha","não trabalha")

Dados corrigidos

str(Questionario_Estresse)

## tibble [95 x 10] (S3: tbl_df/tbl/data.frame)
##  $ Aluno       : num [1:95] 1 2 3 4 5 6 7 8 9 10 ...
##  $ Turma       : num [1:95] 1 1 1 1 1 1 1 1 1 1 ...
##  $ Mora_pais   : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
##  $ RJ          : chr [1:95] "não é do RJ" "é do RJ" "não é do RJ" "não é do RJ" ...
##  $ Namorado_a  : chr [1:95] "não namora" "não namora" "não namora" "namora" ...
##  $ Trabalha    : chr [1:95] "não trabalha" "não trabalha" "não trabalha" "trabalha" ...
##  $ Desempenho  : num [1:95] 8.89 8.8 8 8.8 8.9 8.1 9.2 8.5 8.7 8.3 ...
##  $ Estresse    : num [1:95] 23 24 25 38 41 25 41 20 26 36 ...
##  $ Créditos    : num [1:95] 27 28 25 21 18 29 26 24 20 49 ...
##  $ Horas_estudo: num [1:95] 27 28 25 30 20 32 25 25 25 59 ...

Gráfico de pizza

pie(table(Questionario_Estresse$RJ))

## Tabelas

tabela_trabalha <- table(Questionario_Estresse$Trabalha,Questionario_Estresse$RJ)
tabela_trabalha

##               
##                é do RJ não é do RJ
##   não trabalha      19          40
##   trabalha          14          22

tabela_namora <- table(Questionario_Estresse$Namorado_a,Questionario_Estresse$RJ)
tabela_namora

##             
##              é do RJ não é do RJ
##   namora          14          33
##   não namora      19          29

#---------------------------------
prop.table(tabela_trabalha,1)*100 

##               
##                 é do RJ não é do RJ
##   não trabalha 32.20339    67.79661
##   trabalha     38.88889    61.11111

prop.table(tabela_trabalha,2)*100

##               
##                 é do RJ não é do RJ
##   não trabalha 57.57576    64.51613
##   trabalha     42.42424    35.48387

prop.table(tabela_namora,1)*100

##             
##               é do RJ não é do RJ
##   namora     29.78723    70.21277
##   não namora 39.58333    60.41667

prop.table(tabela_namora,2)*100

##             
##               é do RJ não é do RJ
##   namora     42.42424    53.22581
##   não namora 57.57576    46.77419

Gráficos de barras

barplot(tabela_trabalha,main ="Gráfico 1 - Trabalha e é do RJ",
        col = c("green","royalblue"),legend=rownames(tabela_trabalha))

barplot(tabela_namora, main = "Gráfico 2 - Namora e é do RJ", col = c("green","royalblue"),legend=rownames(tabela_namora))

#------------------------------------
library(RColorBrewer)
brewer.pal(5,"Blues")

## [1] "#EFF3FF" "#BDD7E7" "#6BAED6" "#3182BD" "#08519C"

COR <- brewer.pal(3,"Dark2")
COR <- c("#1B9E77", "#D95F02","#1B9E77", "#D95F02")
barplot(tabela_trabalha,main ="Gráfico 1 - Trabalha e é do RJ",
        col = COR,horiz =FALSE,beside=TRUE,
        legend = rownames(tabela_trabalha))

COR2 <- c("red", "blue","red", "blue")
barplot(tabela_namora,main ="Gráfico 2 - Namora e é do RJ",
        col = COR2,horiz =F,beside=T,
     legend = rownames(tabela_namora))