trabalho aula 4

Trabalho 4 com a base de dados 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)

Gráfico

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

table(Questionario_Estresse$Mora_pais,Questionario_Estresse$RJ)%>%barplot(beside=TRUE,main="Gráfico 1 - Mora com os Pais x Mora no RJ",col=c("#00ffff","#A52A2A"), horiz=FALSE)

Tabela

table(Questionario_Estresse$Mora_pais)

## 
##  1  2 
## 44 51

Questionario_Estresse$Mora_pais <- ifelse(Questionario_Estresse$Mora_pais==1,"Moram com os pais","Nao moram com os pais")

table(Questionario_Estresse$Mora_pais)

## 
##     Moram com os pais Nao moram com os pais 
##                    44                    51

table(Questionario_Estresse$RJ)

## 
##  1  2 
## 33 62

Questionario_Estresse$RJ <- ifelse(Questionario_Estresse$RJ==1,"Moram no RJ","Nao moram no RJ")

table(Questionario_Estresse$RJ)

## 
##     Moram no RJ Nao moram no RJ 
##              33              62

tabela <- table(Questionario_Estresse$Mora_pais,Questionario_Estresse$RJ)
tabela

##                        
##                         Moram no RJ Nao moram no RJ
##   Moram com os pais              30              14
##   Nao moram com os pais           3              48

Tabela com proporções

#tabela <- table(Questionario_Estresse$Mora_pais,Questionario_Estresse$RJ)
#tabela

prop_mora<-prop.table(tabela,1)
prop_mora

##                        
##                         Moram no RJ Nao moram no RJ
##   Moram com os pais      0.68181818      0.31818182
##   Nao moram com os pais  0.05882353      0.94117647

round(prop_mora*100,2)

##                        
##                         Moram no RJ Nao moram no RJ
##   Moram com os pais           68.18           31.82
##   Nao moram com os pais        5.88           94.12

prop_mora2<-prop.table(tabela,2)
prop_mora2

##                        
##                         Moram no RJ Nao moram no RJ
##   Moram com os pais      0.90909091      0.22580645
##   Nao moram com os pais  0.09090909      0.77419355

round(prop_mora2*100,2)

##                        
##                         Moram no RJ Nao moram no RJ
##   Moram com os pais           90.91           22.58
##   Nao moram com os pais        9.09           77.42

library(flextable)
library(dplyr)
library(reactable)
#flextable(data.frame(round(prop_mora2*100,2)))

table(Questionario_Estresse$Mora_pais,Questionario_Estresse$RJ) %>% prop.table(1) %>%round(2) %>% data.frame()%>% flextable() %>% theme_vader()

Relatório

Nesse presente trabalho, está sendo mostrado um gráfico, uma tabela e uma tabela de proporção, baseados na planilha Questionario_estresse. Do mesmo foi tiradas as variáveis mora_pais e RJ. Essa análise nos mostra estatísticas que dizem quem mora com os pais no RJ, quem não mora com os pais, e mora no RJ, e quem não mora com os pais, e nem no RJ.