Trabalho de Estatística 2 - Variável Qualitativa

Nessa atividade avaliamos o questionário estresse e suas 9 variáveis, no entanto deveriamos escolher apenas UMA variável para análise, e a que escolhia foi a variável Namorado/ Namorada para analisar.
Aqui baixei o questionário estresse.
Nessa etapa importei os dados do questionário estresse para que pudesse analisar.
Segue a importação de dados:
library(readxl)
Questionario_Estresse <- read_excel("C:\\Users\\06179351732\\Desktop\\Base_de_dados-master\\Questionario_Estresse.xls")
View(Questionario_Estresse)

VALORES ABSOLUTOS

Aqui foram encontrados os valores absolutos da Variável.

Nessa parte escolhi a variável Namorado_a para analisar,e pude perceber que

Questionario_Estresse$Namorado_a=ifelse(Questionario_Estresse$Namorado_a==1,"Namora","Não Namora")
tabela_namora = table(Questionario_Estresse$Namorado_a)
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_namora2 = tabela_namora %>% data.frame()
tabela_namora2 = tabela_namora2 %>% rename(Tipo=Var1,Quantidade=Freq)
tabela_namora2 %>% flextable() %>% theme_vader()

Tipo

Quantidade

Namora

47

Não Namora

48

TABELA DE PROPORÇÃO

Nas prorpoções, alterei para valores inteiros multiplicando por 100 para conseguir chegar a valores mais proximos ao real e tambem arrendondei os valore para valores inteiros, uma vez que apareceu 49,5 e 50,5
round(prop.table(tabela_namora)*100,1)
## 
##     Namora Não Namora 
##       49.5       50.5

GRÁFICO WAFFLE

partes= c("Namora"=49,"Não Namora"=51)
library (waffle)
## Carregando pacotes exigidos: ggplot2
waffle(partes, colors = c("#f20ac0","purple"))

Nesse gráfico, podemos perceber que 49 pessos namoram e 51 pessoas não namoram, isso nos da quase que uma distribuição de metade da turma ou namora ou não namora.

Análise Geral da Variável Namorado/Namorada

De modo bem amplo, podemos entender com esse gráfico e com as tabelas de valores absolutos que a proporção de divisão da turma em pessoas que namoram e não namoram é de 47 pessoas que namoram e 48 pessoas que não namora, e para chegar a esse valor foi necessário multiplicar esse valor no próprio R por 100 pra consegir chegar a esse total. Isso nos faz entender que em prorporções essa turma está praticamente divivida em termos de namora e não namora, totalizando 49% a 50%.