Atividade 4
Lucas Lima
11/09/2019
Análise de situação e desempenho dos alunos no ambiente estudantil
Entusiasmo estudantil
Tabela dos alunos
library(readxl)
Questionario_Estresse <- read_excel("C:\\Users\\Lucas\\Downloads\\CP\\Base_de_dados-master\\QuestionarioEstresse.xls")
library(knitr)
kable(head(Questionario_Estresse))| Aluno | Turma | Mora_pais | RJ | Namorado(a) | Trabalha | Desempenho | Estresse | Créditos | Horas_estudo |
|---|---|---|---|---|---|---|---|---|---|
| 1 | 1 | 2 | 2 | 2 | 2 | 8.89 | 23 | 27 | 27 |
| 2 | 1 | 1 | 1 | 2 | 2 | 8.80 | 24 | 28 | 28 |
| 3 | 1 | 2 | 2 | 2 | 2 | 8.00 | 25 | 25 | 25 |
| 4 | 1 | 2 | 2 | 1 | 1 | 8.80 | 38 | 21 | 30 |
| 5 | 1 | 2 | 2 | 2 | 1 | 8.90 | 41 | 18 | 20 |
| 6 | 1 | 2 | 2 | 1 | 1 | 8.10 | 25 | 29 | 32 |
Gráfico de comparação entre desempenho e nível de estresse
DesempenhoAlunos <- Questionario_Estresse$Desempenho
HorasAlunos <- Questionario_Estresse$Horas_estudo
plot(HorasAlunos,DesempenhoAlunos, col ="black", main="GREMIO")
Por hoje é só pessoal!
Até a próxima