passo 1 - carregar o banco de dados

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

passo 2 - transformação de variáveis

QO$Mora_pais <-ifelse(QO$Mora_pais==1,"Sim","Não")
QO$RJ <-ifelse(QO$RJ==1,"Sim","Não")
QO$Namorado_a <-ifelse(QO$Namorado_a==1,"Sim","Não")
QO$Trabalha <-ifelse(QO$Trabalha==1,"Sim","Não")
QO$Turma <-as.factor(QO$Turma)

passo 3 - construção das tabelas

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
#Não é natural do RJ precisa trabalhar
tabela1 <- QO %>% select(RJ, Trabalha) %>% table()

round(prop.table(tabela1,1)*100,1)
##      Trabalha
## RJ     Não  Sim
##   Não 64.5 35.5
##   Sim 57.6 42.4
round(prop.table(tabela1,2)*100,1)
##      Trabalha
## RJ     Não  Sim
##   Não 67.8 61.1
##   Sim 32.2 38.9
#Mora_pais não precisa trabalhar
tabela2 <- QO %>% select(Mora_pais, Trabalha) %>% table()
round(prop.table(tabela2,1)*100,1)
##          Trabalha
## Mora_pais  Não  Sim
##       Não 62.7 37.3
##       Sim 61.4 38.6

passo 4 - construção do gráfico

#Gráfico não é natural do RJ precisa trabalhar
barplot(tabela1,beside=TRUE,
        col=c("red","blue"),
        main="Análise bivariada",
        horiz = TRUE,
        legend =TRUE)

Análise de uma variável quantitativa e uma variável categórica

QO %>% group_by(Trabalha) %>%
  summarise(media=mean(Desempenho),
            desvio_padrao=sd(Desempenho),
            tamanho=n())
## # A tibble: 2 x 4
##   Trabalha media desvio_padrao tamanho
##   <chr>    <dbl>         <dbl>   <int>
## 1 Não       8.63         0.698      59
## 2 Sim       8.54         0.896      36
QO %>% group_by(Trabalha) %>%
  summarise(media=mean(Horas_estudo),
            mediana= median(Horas_estudo),
            desvio_padrão=sd(Horas_estudo),
            tamanho=n())
## # A tibble: 2 x 5
##   Trabalha media mediana desvio_padrão tamanho
##   <chr>    <dbl>   <dbl>         <dbl>   <int>
## 1 Não       31.6      30          6.93      59
## 2 Sim       29.4      30          7.72      36

conclusão

Devemos permitir que o aluno trabalhe.