introdução a revisão
Neste encontro vamos carregar a base de dados , dar uma olhada na base de dados, corrigir os problemas e demonstrar resultados.
importação
para importar vamos usar a função read_excel
library(readxl)## Warning: package 'readxl' was built under R version 4.2.3QE <- read_excel("C:/Users/14086606798/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
head(QE)## # A tibble: 6 × 10
## Aluno Turma Mora_pais RJ Namorado_a Trabalha Desempenho Estresse Créditos
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 1 2 2 2 2 8.89 23 27
## 2 2 1 1 1 2 2 8.8 24 28
## 3 3 1 2 2 2 2 8 25 25
## 4 4 1 2 2 1 1 8.8 38 21
## 5 5 1 2 2 2 1 8.9 41 18
## 6 6 1 2 2 1 1 8.1 25 29
## # ℹ 1 more variable: Horas_estudo <dbl>olhar a base de dados
aqui vamos usar as funçoes summery, view e str para olhar a base de dados
summary(QE)## 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
## str(QE)## tibble [95 × 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 ...transformção da base de dados
tudo que tiver 1 e 2 vai virar “sim ou”não”
a turma 1,2 e 3 devem virar “A” , “B’ e”C”
QE$Trabalha = ifelse(QE$Trabalha==1, "sim", "não")
QE$Mora_pais = ifelse(QE$Mora_pais==1, "sim", "não")
QE$RJ = ifelse(QE$RJ==1, "sim", "não")
QE$Namorado_a = ifelse(QE$Namorado_a==1,"sim", "não")
QE$Turma = ifelse(QE$Turma==1,"turma A",
ifelse(QE$Turma==2, "turma B", "Turma C"))pergunta - Será que o problema foi resolvido
summary(QE)## Aluno Turma Mora_pais RJ
## Min. : 1.0 Length:95 Length:95 Length:95
## 1st Qu.:24.5 Class :character Class :character Class :character
## Median :48.0 Mode :character Mode :character Mode :character
## Mean :48.0
## 3rd Qu.:71.5
## Max. :95.0
##
## Namorado_a Trabalha Desempenho Estresse
## Length:95 Length:95 Min. :5.820 Min. :12.00
## Class :character Class :character 1st Qu.:8.500 1st Qu.:22.50
## Mode :character Mode :character Median :8.700 Median :27.00
## Mean :8.594 Mean :27.82
## 3rd Qu.:9.050 3rd Qu.:33.00
## Max. :9.700 Max. :44.00
##
## Créditos Horas_estudo
## Min. :15.00 Min. :19.00
## 1st Qu.:23.00 1st Qu.:25.00
## Median :24.00 Median :30.00
## Mean :24.95 Mean :30.73
## 3rd Qu.:27.00 3rd Qu.:35.00
## Max. :49.00 Max. :60.00
## NA's :1head(QE)## # A tibble: 6 × 10
## Aluno Turma Mora_pais RJ Namorado_a Trabalha Desempenho Estresse Créditos
## <dbl> <chr> <chr> <chr> <chr> <chr> <dbl> <dbl> <dbl>
## 1 1 turma A não não não não 8.89 23 27
## 2 2 turma A sim sim não não 8.8 24 28
## 3 3 turma A não não não não 8 25 25
## 4 4 turma A não não sim sim 8.8 38 21
## 5 5 turma A não não não sim 8.9 41 18
## 6 6 turma A não não sim sim 8.1 25 29
## # ℹ 1 more variable: Horas_estudo <dbl>str(QE)## tibble [95 × 10] (S3: tbl_df/tbl/data.frame)
## $ Aluno : num [1:95] 1 2 3 4 5 6 7 8 9 10 ...
## $ Turma : chr [1:95] "turma A" "turma A" "turma A" "turma A" ...
## $ Mora_pais : chr [1:95] "não" "sim" "não" "não" ...
## $ RJ : chr [1:95] "não" "sim" "não" "não" ...
## $ Namorado_a : chr [1:95] "não" "não" "não" "sim" ...
## $ Trabalha : chr [1:95] "não" "não" "não" "sim" ...
## $ 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 ...questões
quem trabalha tem um desempenho pior? quem namora tem um desmpenho pior? quem mora com os pais tem um desempenho melhor?
A turma b possui um melhor dempenho melhor que as outras turmas?
desenho de pesquisa
variavel explicada
desempenho do estudante
variavel explicativas
trabalha, namora, mora com os pais e turma
analise de dados
média por grupos. vamos fazer o desempenho medio de quem trabalha e de quem não trabalha.
library(dplyr) # para criar estatisticas
library(flextable) # para criar as tabelas no rmarkdowmn
#janitor::tabyl(Trabalha, Desempenho) %>%
# adorn_percentages("row") %>%
# adorn_pct_formatting(digits = 2) %>%
# summarise(média = mean(Desempenho),
# desvio_padrao = sd(Desempenho)) %<%
# adorn_ns %>% flextable() %>% theme_zebra()
QE %>% select(Trabalha, Desempenho) %>%
group_by(Trabalha) %>%
summarise(média = mean(Desempenho),
desvio_padrao = sd(Desempenho)) %>%
flextable() %>% theme_tron()Trabalha | média | desvio_padrao |
|---|---|---|
não | 8.626441 | 0.698167 |
sim | 8.540278 | 0.895511 |
quem trabalha tem nota 8.5 quem trabalha tem nota 8.6
as notas não interferem na nota do estudante. a diferença é de 0.1.
- recomendamos permitir o estudante a trabalhar, pois o trabalho não atrapalha o desempenho,
- O namoro não afeta o desenmpenho.