Atividade 04
Marcos Vinicius Neves Marins
04/06/2022
| #Base de dados Questionário Estresse |
r library(readxl) Questionario_Estresse <- read_excel("C:/Users/vinny/Desktop/Base_de_dados-master/Questionario_Estresse.xls") View(Questionario_Estresse) library(DT) |
## Warning: package 'DT' was built under R version 4.0.5 |
r DT::datatable(Questionario_Estresse) |
{=html} <div id="htmlwidget-bc3a56dbc00969e02e98" style="width:100%;height:auto;" class="datatables html-widget"></div> <script type="application/json" data-for="htmlwidget-bc3a56dbc00969e02e98">{"x":{"filter":"none","data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85","86","87","88","89","90","91","92","93","94","95"],[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95],[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3],[2,1,2,2,2,2,2,1,1,1,1,2,2,1,1,2,2,2,1,1,2,2,2,2,1,1,1,2,1,1,2,1,2,1,2,1,1,2,2,1,1,1,1,2,2,1,2,2,2,2,2,2,2,2,2,1,2,1,2,2,1,1,2,1,1,2,1,1,1,1,2,1,2,2,1,1,2,2,1,1,1,2,2,2,2,1,2,2,2,1,2,1,2,1,1],[2,1,2,2,2,2,2,1,1,1,1,2,2,2,1,2,2,2,1,1,2,2,2,2,1,1,1,2,1,2,2,1,2,1,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,1,2,2,1,2,1,2,2,1,2,2,1,2,1,1,1,1,2,2,2,2,2,1,2,2,1,1,2,1,2,2,2,2,2,2,2,2,1,2,1,2,2,2],[2,2,2,1,2,1,2,1,2,2,1,1,2,1,2,2,2,2,2,2,1,1,1,2,2,2,1,1,1,1,1,2,1,2,1,1,2,1,2,2,2,1,2,2,1,2,1,2,1,1,2,1,1,2,1,1,2,2,1,1,1,1,1,1,2,1,2,2,2,2,2,2,2,1,2,1,1,1,1,2,1,2,2,2,1,1,2,2,2,1,1,2,1,1,1],[2,2,2,1,1,1,2,1,1,1,1,1,1,2,1,1,1,2,2,1,2,2,2,1,1,2,2,2,2,2,1,2,2,2,2,2,1,2,1,2,2,1,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,1,2,2,1,2,2,2,1,1,2,2,2,2,2,2,2,1,1,1,2,2,1,2,2,2,1,2,1,1,1,1,2,1,1,2,1,2,2],[8.89,8.8,8,8.8,8.9,8.1,9.2,8.5,8.7,8.3,8.5,9.1,9.03,9.36,8.6,8.53,8,9.08,8.5,8.5,8.5,8.5,8.5,8.8,8,7.5,9.4,8.5,8.1,8.7,9.5,7.7,8.7,8.94,8.96,9.29,8.79,8.55,5.9,8.5,8.9,9.09,7.8,9,8.8,8.9,9,9.12,8.5,9.07,8.89,9.33,8.5,9.2,9.29,9.36,8.64,8.5,8.4,8.8,9.4,9.6,9,6,7,7,8.8,8.5,8.82,6.5,8.3,8.4,8.8,9,9,8.48,8.6,8.8,5.82,6.6,8.5,8,8,8.2,9.45,9.7,9.39,8.7,8.6,9.3,8.6,9.3,9.4,9.44,9.6],[23,24,25,38,41,25,41,20,26,36,37,26,30,31,26,31,27,21,26,25,27,17,20,20,21,24,29,38,35,38,39,30,32,32,31,26,26,25,35,37,26,32,34,29,35,19,23,28,30,24,21,30,33,33,16,44,25,26,34,42,25,31,33,24,40,18,30,42,31,22,13,21,20,29,28,30,20,23,16,17,33,32,44,37,33,34,21,13,17,15,22,12,16,27,29],[27,28,25,21,18,29,26,24,20,49,28,23,20,26,30,28,20,27,26,26,24,24,28,24,30,24,24,24,24,26,26,30,30,28,20,28,24,20,20,20,28,24,23,24,23,null,25,27,27,26,28,28,26,28,28,26,29,19,27,27,20,24,28,28,17,26,24,24,24,23,20,28,32,24,24,23,23,23,24,20,24,24,20,24,15,27,21,23,24,27,23,27,27,24,24],[27,28,25,30,20,32,25,25,25,59,26,35,35,60,35,33,25,35,30,30,30,24,28,24,33,24,44,44,30,40,40,36,40,36,35,40,30,29,36,30,44,30,40,32,30,28,30,33,30,40,40,33,30,30,30,28,40,26,33,33,36,36,32,32,20,24,24,28,29,28,20,21,30,30,30,25,26,30,20,20,29,29,32,25,19,35,25,20,23,23,25,26,24,36,34]],"container":"<table class=\"display\">\n <thead>\n <tr>\n <th> <\/th>\n <th>Aluno<\/th>\n <th>Turma<\/th>\n <th>Mora_pais<\/th>\n <th>RJ<\/th>\n <th>Namorado_a<\/th>\n <th>Trabalha<\/th>\n <th>Desempenho<\/th>\n <th>Estresse<\/th>\n <th>Créditos<\/th>\n <th>Horas_estudo<\/th>\n <\/tr>\n <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[1,2,3,4,5,6,7,8,9,10]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script> |
#Ajustando a base de dados
Questionario_Estresse$Trabalha <-ifelse(Questionario_Estresse$Trabalha==1,"sim","Não")
Questionario_Estresse$Mora_pais <-ifelse(Questionario_Estresse$Mora_pais==1,"sim","Não")| #Gráfico de Barras |
r tabela1 <- table(Questionario_Estresse$Turma,Questionario_Estresse$Trabalha) barplot(tabela1,beside=TRUE, main= "Gráfico 1-Percentual de alunos que trabalham por turmas", col=c("tomato","red","pink"),horiz=TRUE, legend.text = rownames(tabela1),xlab = "Percentual",ylab = "Trabalham") |
 |
#Tabela
tabela_trabalhamXnãotrabalham <- table(Questionario_Estresse$Turma,Questionario_Estresse$Trabalha)
tabela_trabalhamXnãotrabalham##
## Não sim
## 1 13 15
## 2 26 6
## 3 20 15#Tabela de proporção
library(flextable)
library(dplyr)
prop_trabalham <- prop.table(tabela_trabalhamXnãotrabalham,1)
prop_trabalham##
## Não sim
## 1 0.4642857 0.5357143
## 2 0.8125000 0.1875000
## 3 0.5714286 0.4285714round(prop_trabalham,2)*100##
## Não sim
## 1 46 54
## 2 81 19
## 3 57 43minha_tabela <- table(Questionario_Estresse$Turma,Questionario_Estresse$Trabalha) %>% prop.table(1) %>% round(2) %>% data.frame()
minha_tabela <- minha_tabela %>% rename(Turmas=Var1,Trabalham=Var2,Percentual=Freq)
minha_tabela## Turmas Trabalham Percentual
## 1 1 Não 0.46
## 2 2 Não 0.81
## 3 3 Não 0.57
## 4 1 sim 0.54
## 5 2 sim 0.19
## 6 3 sim 0.43minha_tabela %>% flextable() %>% theme_tron_legacy()Turmas | Trabalham | Percentual |
1 | Não | 0.46 |
2 | Não | 0.81 |
3 | Não | 0.57 |
1 | sim | 0.54 |
2 | sim | 0.19 |
3 | sim | 0.43 |
#Conclusão
Para esse trabalho de análise estátitica utilizamos as variáveis qualitativas da base de dados “Questionário Estresse”. Em uma primeira análise foi comparada estatiscamente o percentual de alunos que trabalham e os que não trabalham.
Com as variáves “trabalham” e “turma” foi possível obter algumas informações relavantes que venham a ser pontuadas a seguir. O percentual de alunos que trabalham nas turmas 1 e 3 são equivalentes, no entanto, na mesmas turmas, o percentual de que não trabalham é maior na turma 3. Além disso, observa-se uma discrepancia muito grande com relação aos alunos da turma 2, na qual, a maioria não trabalha. E na turma 3 a proporção é bem parecida.