Atividade 4
Aluno Kaio Aguiar Fonseca Seves
09/12/2021
Carregando Dados
library(readxl)
Questionario_Estresse <- read_excel("C:/Users/admin/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)Inspecionando os dados
str(Questionario_Estresse)## tibble [95 x 10] (S3: tbl_df/tbl/data.frame)
## $ Aluno : num [1:95] 1 2 3 4 5 6 7 8 9 10 ...
## $ Turma : num [1:95] 1 1 1 1 1 1 1 1 1 1 ...
## $ Mora_pais : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
## $ RJ : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
## $ Namorado_a : num [1:95] 2 2 2 1 2 1 2 1 2 2 ...
## $ Trabalha : num [1:95] 2 2 2 1 1 1 2 1 1 1 ...
## $ Desempenho : num [1:95] 8.89 8.8 8 8.8 8.9 8.1 9.2 8.5 8.7 8.3 ...
## $ Estresse : num [1:95] 23 24 25 38 41 25 41 20 26 36 ...
## $ Créditos : num [1:95] 27 28 25 21 18 29 26 24 20 49 ...
## $ Horas_estudo: num [1:95] 27 28 25 30 20 32 25 25 25 59 ...summary(Questionario_Estresse)## Aluno Turma Mora_pais RJ Namorado_a
## Min. : 1.0 Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:24.5 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000
## Median :48.0 Median :2.000 Median :2.000 Median :2.000 Median :2.000
## Mean :48.0 Mean :2.074 Mean :1.537 Mean :1.653 Mean :1.505
## 3rd Qu.:71.5 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :95.0 Max. :3.000 Max. :2.000 Max. :2.000 Max. :2.000
##
## Trabalha Desempenho Estresse Créditos
## Min. :1.000 Min. :5.820 Min. :12.00 Min. :15.00
## 1st Qu.:1.000 1st Qu.:8.500 1st Qu.:22.50 1st Qu.:23.00
## Median :2.000 Median :8.700 Median :27.00 Median :24.00
## Mean :1.621 Mean :8.594 Mean :27.82 Mean :24.95
## 3rd Qu.:2.000 3rd Qu.:9.050 3rd Qu.:33.00 3rd Qu.:27.00
## Max. :2.000 Max. :9.700 Max. :44.00 Max. :49.00
## NA's :1
## Horas_estudo
## Min. :19.00
## 1st Qu.:25.00
## Median :30.00
## Mean :30.73
## 3rd Qu.:35.00
## Max. :60.00
## Transformando os Dados
Dados das pessoas que trabalhame não trabalham com tabelas
Questionario_Estresse$Trabalha <-ifelse(Questionario_Estresse$Trabalha==1,"Trabalha","Não Trabalha")tabela_trabalha <- table(Questionario_Estresse$Trabalha)
prop.table(tabela_trabalha)*100##
## Não Trabalha Trabalha
## 62.10526 37.89474Dados de quem mora com os pais com tabelas
Questionario_Estresse$Mora_pais <-ifelse(Questionario_Estresse$Mora_pais==1,"Mora","Não mora") tabela_mora_c_pais <- table(Questionario_Estresse$Mora_pais)
prop.table(tabela_mora_c_pais)*100##
## Mora Não mora
## 46.31579 53.68421Questionario_Estresse$Desempenho## [1] 8.89 8.80 8.00 8.80 8.90 8.10 9.20 8.50 8.70 8.30 8.50 9.10 9.03 9.36 8.60
## [16] 8.53 8.00 9.08 8.50 8.50 8.50 8.50 8.50 8.80 8.00 7.50 9.40 8.50 8.10 8.70
## [31] 9.50 7.70 8.70 8.94 8.96 9.29 8.79 8.55 5.90 8.50 8.90 9.09 7.80 9.00 8.80
## [46] 8.90 9.00 9.12 8.50 9.07 8.89 9.33 8.50 9.20 9.29 9.36 8.64 8.50 8.40 8.80
## [61] 9.40 9.60 9.00 6.00 7.00 7.00 8.80 8.50 8.82 6.50 8.30 8.40 8.80 9.00 9.00
## [76] 8.48 8.60 8.80 5.82 6.60 8.50 8.00 8.00 8.20 9.45 9.70 9.39 8.70 8.60 9.30
## [91] 8.60 9.30 9.40 9.44 9.60tabela_Desempenho <-table(Questionario_Estresse$Desempenho)
prop.table(tabela_Desempenho)*100##
## 5.82 5.9 6 6.5 6.6 7 7.5 7.7
## 1.052632 1.052632 1.052632 1.052632 1.052632 2.105263 1.052632 1.052632
## 7.8 8 8.1 8.2 8.3 8.4 8.48 8.5
## 1.052632 5.263158 2.105263 1.052632 2.105263 2.105263 1.052632 14.736842
## 8.53 8.55 8.6 8.64 8.7 8.79 8.8 8.82
## 1.052632 1.052632 4.210526 1.052632 4.210526 1.052632 8.421053 1.052632
## 8.89 8.9 8.94 8.96 9 9.03 9.07 9.08
## 2.105263 3.157895 1.052632 1.052632 5.263158 1.052632 1.052632 1.052632
## 9.09 9.1 9.12 9.2 9.29 9.3 9.33 9.36
## 1.052632 1.052632 1.052632 2.105263 2.105263 2.105263 1.052632 2.105263
## 9.39 9.4 9.44 9.45 9.5 9.6 9.7
## 1.052632 3.157895 1.052632 1.052632 1.052632 2.105263 1.052632Gráfico dos Alunos que trabalham e não trabalham com tabelas
grafico1 <- barplot(tabela_trabalha,legend = rownames(tabela_trabalha),main = "Alunos que trabalham e não trabalham", horiz = FALSE,beside = TRUE,ylim = c(0,100),
col = c("skyblue","pink"),args.legend = list(x = "topright"))
grafico1 <- barplot(tabela_mora_c_pais,legend = rownames(tabela_mora_c_pais),main = " Alunos que moram e que não moram com os pais", horiz = FALSE,beside = FALSE,ylim = c(0,100),
col = c("purple","red"),args.legend = list(x = "topright"))
grafico1 <- barplot(tabela_Desempenho,legend = rownames(tabela_Desempenho),main = "Desempenho dos Alunos", horiz = FALSE,beside = TRUE,ylim = c(0,100),
col = c("orange","black"),args.legend = list(x = "topright"))
RESULTADOS
Percebe-se que 100% dos alunos moram com os pais e possuem um desempenho baixo. E juntamente é possível analisar que cerca de 40% desses alunos trabalham, possibilitando um aumento percentual de seus resultados negativos. Porém, é necessário mais dados, como: “Qual a renda desses alunos e onde eles moram” para que não ocorra uma divergência ideológica a qual culpa os pais destes alunos, por seu baixo desempenho escolar.