ABRIR A BASE DE DADOS

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/pedro2105/Dropbox (pedro nascimento)/My PC (LAPTOP-64L13HB0)/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

CORRIGIR A BASE DE DADOS

Questionario_Estresse$Mora_pais <- ifelse(Questionario_Estresse$Mora_pais==1, "mora", "não mora")
Questionario_Estresse$Namorado_a <- ifelse(Questionario_Estresse$Namorado_a==1, "está namorando", "não namora")

MONTAR A TABELA

tabela_mora_pais_namoro <- table(Questionario_Estresse$Mora_pais,Questionario_Estresse$Namorado_a)
tabela_mora_pais_namoro
##           
##            está namorando não namora
##   mora                 19         25
##   não mora             28         23

MONTAR A TABELA COM PROPORÇÕES

prop.table(tabela_mora_pais_namoro,1)*100
##           
##            está namorando não namora
##   mora           43.18182   56.81818
##   não mora       54.90196   45.09804

MONTAR O GRÁFICO DE BARRAS POR GRUPO

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
tabela_mora_pais_namoro %>% barplot(beside=T,
                          col=c("black", "yellow"),
                          main= "ESTUDANDO A RELAÇÃO ENTRE OS ESTUDANTES QUE MORAM COM OS PAIS E NAMORAM",
                          legend = rownames(tabela_mora_pais_namoro),
                          ylim=c(0,70),
                          args.legend = list(x = "topright"))

CONCLUSÃO

O maior objetivo da análise feita na aula 5 era poder afirmar que a maioria dos estudantes que responderam o questionário e que moram com os pais, não namoram (56.81%). O presente trabalho atua com duas variáveis qualitativas. A minha variável chave seria: Namora ou não namora. e minha variável explicativa seria mora ou não mora com os pais. Além disso, 54,90% das pessoas que moram sozinhas (que responderam o questionário) namoram.

Tal análise gera algumas indagações, como: “Por ter seu espaço pessoal os estudantes que moram sozinho se sentem mais aptos a terem um relacionamento como namoro?”, “Morar com os pais seria um impediditivo para alguns quando se trata de namoro?”, “E para quem namora e mora com os pais, qual seria o rendimento acadêmico?

Tais indagações são importantes porque começam a surgir questionamentos que podem relacionar variáveis quantitativas com qualitativas, para que no fim possa ser feita a melhor análise dos dados.