Cruzamento de Variável Qualitativa e Variável Quantitativa

No presente trabalho, será apresentado através de uma tabela e um gráfico, uma análise de dados com um cruzamento de informações da base de dados: Questionario_Estresse.

library(readxl)
Questionario_Estresse <- read_excel("D:/faculdade/2 periodo/Estatistica Aplicada/estat_adm/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
head(Questionario_Estresse)
## # A tibble: 6 × 10
##   Aluno Turma Mora_pais    RJ Namorado_a Trabalha Desempenho Estresse Créditos
##   <dbl> <dbl>     <dbl> <dbl>      <dbl>    <dbl>      <dbl>    <dbl>    <dbl>
## 1     1     1         2     2          2        2       8.89       23       27
## 2     2     1         1     1          2        2       8.8        24       28
## 3     3     1         2     2          2        2       8          25       25
## 4     4     1         2     2          1        1       8.8        38       21
## 5     5     1         2     2          2        1       8.9        41       18
## 6     6     1         2     2          1        1       8.1        25       29
## # … with 1 more variable: Horas_estudo <dbl>
Questionario_Estresse$Trabalha<-ifelse(Questionario_Estresse$Trabalha==1,"Sim","Nao")

Tabela

A tabela nos mostra que a média de estresse das pessoas que trabalham, é de 27.64. E a média de quem não trabalha é 27.93. O que nos mostra que as pessoas se estressam mais em casa do que no trabalho, um habiente rodeado de pressã psicológica.

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)
Questionario_Estresse %>% select(Trabalha,Estresse) %>% 
  group_by(Trabalha) %>% 
  summarise(Media_Estresse = round(mean(Estresse),2),
            DP_Estresse = round(sd(Estresse),2),
            Media_Estresse = round(mean(Estresse),2),
            Mediana_Estresse = round(median(Estresse),2),
            DP_Estresse = round(sd(Estresse),2),) %>% 
  flextable() %>% theme_tron() %>% add_footer_lines("Analise - Quem Trabalha Vs. Quem Nao Trabalha e a Media, Mediana e DP do Estresse")

Gráfico (Boxplot)

A partir do gráfico podemos visualizar melhor os dados da tabela acima.

boxplot(Questionario_Estresse$Estresse ~ Questionario_Estresse$Trabalha,
        main="Grafico - Estresse X Trabalha",
        col=c("#DC143C","#00FF7F"),
        ylab="Estresse",
        xlab="Trabalha")

Conclusão

Com os tais dados, podemos fazer uma tabela, a qual mostra, quem trabalha e quem não trabalha, a média, mediana e desvio padrão de estresse. E a partir do gráfico podemos ver esses dados representados.