# Importar a base de dados 
library(readxl)
QE <- read_excel("C:/Users/Aline/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
# Corrigindo as variáveis 
QE$Trabalha <- ifelse(QE$Trabalha==1,"SIM","NÃO")
QE$Namorado_a <- ifelse(QE$Namorado_a==1,"SIM","NÃO")
QE$RJ <- ifelse(QE$RJ==1,"SIM","NÃO")
QE$Mora_pais<- ifelse(QE$Mora_pais==1,"SIM","NÃO")
QE$Turma <- as.factor(QE$Turma)

Qualitativa x Qualitativa

Hipóteses

Quem não é do rio, trabalha

Quem mora com os pais não trabalha

Quem trabalha não namora

A turma 1 não trabalha tanto quanto as outras turmas

Quem namora, se estressa mais

# Trabalhar a variável estresse 
summary(QE$Estresse)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   12.00   22.50   27.00   27.82   33.00   44.00
quantile(QE$Estresse, probs = c(0.33,0.66))
## 33% 66% 
##  25  31
# de 12 até 25 - faixa 1 - aluno tranquilo
# de 26 até 31 - faixa 2 - aluno mediano 
# de 32 até 44 - faixa 3 - aluno estressado 

QE$Faixas_Estresse <- ifelse(QE$Estresse<=25,"Tranquilo", ifelse(QE$Estresse<=31,"Mediano", "Muito Estresse"))
                                                            
summary(QE$Faixas_Estresse)
##    Length     Class      Mode 
##        95 character character
table(QE$Faixas_Estresse)
## 
##        Mediano Muito Estresse      Tranquilo 
##             28             30             37
table(QE$Namorado_a,QE$Faixas_Estresse)
##      
##       Mediano Muito Estresse Tranquilo
##   NÃO      15             13        20
##   SIM      13             17        17
# Reordenar as categorias 

QE$Faixas_Estresse<-factor(QE$Faixas_Estresse, levels = c("Tranquilo", "Mediano", "Muito Estresse"))

table(QE$Namorado_a,QE$Faixas_Estresse)
##      
##       Tranquilo Mediano Muito Estresse
##   NÃO        20      15             13
##   SIM        17      13             17
# Criação da tabela 

prop.table(table(QE$Namorado_a,QE$Faixas_Estresse),1)
##      
##       Tranquilo   Mediano Muito Estresse
##   NÃO 0.4166667 0.3125000      0.2708333
##   SIM 0.3617021 0.2765957      0.3617021
round(prop.table(table(QE$Namorado_a,QE$Faixas_Estresse),1),2)
##      
##       Tranquilo Mediano Muito Estresse
##   NÃO      0.42    0.31           0.27
##   SIM      0.36    0.28           0.36
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
library(flextable)

Tabela_final <- QE %>% select(Namorado_a,Faixas_Estresse) %>% table() %>% prop.table(1) %>% round(4)*100

Tabela_final 
##           Faixas_Estresse
## Namorado_a Tranquilo Mediano Muito Estresse
##        NÃO     41.67   31.25          27.08
##        SIM     36.17   27.66          36.17
# Tabela Final 2

Tabela_final2<-data.frame(Tabela_final)
colnames(Tabela_final2)<-c("Namora","Faixa de Estresse","Percentual")
# Dividir a tabela 

Tabela_final2 %>% filter(`Faixa de Estresse`=="Tranquilo") %>% flextable() %>%  bg(j = ~ Percentual, bg = "red")
barplot(Tabela_final, main = "Estresse", col=c("red","blue"), beside = T, legend.text = TRUE, ylim= c(0,50))

# Mudança de rótulo e barplot
rotulo <- paste0(Tabela_final, "%")

bp<- barplot(Tabela_final, main = "Estresse",
             col=c("red","blue"),
             beside=TRUE,
             legend.text=TRUE,ylim = c(0,50))
text(bp, 0, rotulo,cex=1,pos=3,col = "white")

# Gráfico mosaico
tabela_p_mosaico<-table(QE$Faixas_Estresse,QE$Namorado_a)

mosaicplot(tabela_p_mosaico,las = 1,main = "Gráfico mosaico",
           color=c("#f5f269","red"))

Conclusão

Quem namora é mais estressado.