Introdução

Aqui serão inseridos os primeiros graficos

Fase 1 - Importar o banco de dados

Na prática em tela, temos um unico banco de dados em excel

library(readxl)
Questionario_Estresse <- read_excel("G:/MESTRADO UFF 2020/Academico 2020/CIVIL/Estatistica/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Fase 2 - Manipular o banco de dados

summary(Questionario_Estresse$Mora_pais)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.000   1.000   2.000   1.537   2.000   2.000
class(Questionario_Estresse$Mora_pais)
## [1] "numeric"
Questionario_Estresse$Mora_pais<-as.factor(Questionario_Estresse$Mora_pais)

summary(Questionario_Estresse$Mora_pais)
##  1  2 
## 44 51
Questionario_Estresse$Trabalha <-as.factor(Questionario_Estresse$Trabalha)

class(Questionario_Estresse$Trabalha)
## [1] "factor"
Questionario_Estresse$Mora_pais <-as.factor(Questionario_Estresse$Mora_pais)

class(Questionario_Estresse$Mora_pais)
## [1] "factor"
summary(Questionario_Estresse$Trabalha)
##  1  2 
## 36 59
summary(Questionario_Estresse$Mora_pais)
##  1  2 
## 44 51
Questionario_Estresse$Trabalha_2 <-ifelse(Questionario_Estresse$Trabalha=="1","working","Studying_only")

Questionario_Estresse$Mora_pais_2 <-as.factor(Questionario_Estresse$Mora_pais)

class(Questionario_Estresse$Mora_pais_2)
## [1] "factor"
Questionario_Estresse$Trabalha_2 <-as.factor(Questionario_Estresse$Trabalha_2)


summary(Questionario_Estresse$Mora_pais_2)
##  1  2 
## 44 51
summary(Questionario_Estresse$Trabalha_2)
## Studying_only       working 
##            59            36

Fase 3 - Construção das Estatisticas

Tabela_Trabalha <-table(Questionario_Estresse$Trabalha_2)
Tabela_Mora_pais <-table(Questionario_Estresse$Mora_pais_2)

prop.table(Tabela_Trabalha)
## 
## Studying_only       working 
##     0.6210526     0.3789474
prop.table(Tabela_Mora_pais)
## 
##         1         2 
## 0.4631579 0.5368421
prop.table(Tabela_Trabalha)*100
## 
## Studying_only       working 
##      62.10526      37.89474
prop.table(Tabela_Mora_pais)*100
## 
##        1        2 
## 46.31579 53.68421
pie(Tabela_Trabalha,col = c("#ed1800","#00EDA0"), main = "Grafico Status de Atividade")

pie(Tabela_Mora_pais,col = c("#1f9a72","#ede300"), main = "Caracterização da Moradia")

barplot(Tabela_Trabalha,col =c("#ed1800","#00EDA0"), main="Atividade",ylim = c(0,75))

barplot(Tabela_Mora_pais,col =c("#1f9a72","#ede300"), main = "Caracterização de Moradia",ylim = c(0,75))

Análise da Variável Qualitativa

Consideramos, para efeito da presente análise, o banco de dados Estresse e as variáveis: “Trabalha” e variável “Mora com os pais”.Ambas são qualitativas. Os graficos mostram somente que percentual maior de entrevistados não mora com os pais (54%) e também que o percentual maior de elementos que somente estudam(62%) prevalece em relação àqueles que trabalham e estudam, entre os entrevistados. Assim, as características da amostra analisada indicam que na população(amostra) analisada tem-se estresse médio 0,15% menor quando não se mora com os pais, situação análoga também para aqueles que somente estudam (2,63%).Correlação mais forte foi observada na variável “trabalha” em relação à variável “mora com pais”, quando correlacionadas à variável estresse.