Base de dados retirada do site “Kaggle”
library(dplyr)## Warning: pacote 'dplyr' foi compilado no R versão 4.4.1##
## Anexando pacote: 'dplyr'## Os seguintes objetos são mascarados por 'package:stats':
##
## filter, lag## Os seguintes objetos são mascarados por 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(readr)## Warning: pacote 'readr' foi compilado no R versão 4.4.1Impact_of_Mobile_Phone_on_Students_Health <- read_csv("C:/Users/furta/OneDrive/Impact_of_Mobile_Phone_on_Students_Health.csv")## Rows: 100 Columns: 20## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (20): Names, Age, Gender, Mobile Phone, Mobile Operating System, Mobile ...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.# traduzindo a categoria
Impact_of_Mobile_Phone_on_Students_Health$Gender = gsub('Male','Masculino',Impact_of_Mobile_Phone_on_Students_Health$Gender)
Impact_of_Mobile_Phone_on_Students_Health$Gender = gsub('Female','Feminino',Impact_of_Mobile_Phone_on_Students_Health$Gender)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile Phone` = gsub('Yes','Sim',Impact_of_Mobile_Phone_on_Students_Health$`Mobile Phone`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education` = gsub('Sometimes','Às vezes',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education` = gsub('Frequently','Frequentemente',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education` = gsub('Rarely','Raramente',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education` = gsub('Never','Nunca',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone use for education`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities` = gsub('Social Media','Mídias Sociais',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities` = gsub('All of these','Todos estes',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities` = gsub('Web-browsing','Pesquisa online',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities`)
Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities` = gsub('Messaging','E-mail',Impact_of_Mobile_Phone_on_Students_Health$`Mobile phone activities`)
Impact_of_Mobile_Phone_on_Students_Health$`Helpful for studying` = gsub('Yes','Sim',Impact_of_Mobile_Phone_on_Students_Health$`Helpful for studying`)
Impact_of_Mobile_Phone_on_Students_Health$`Helpful for studying` = gsub('No','Não',Impact_of_Mobile_Phone_on_Students_Health$`Helpful for studying`)
Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps` = gsub('Educational Videos','Vídeos Educacionais',Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps`)
Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps` = gsub('Study Planner','Planejador de Estudos',Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps`)
Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps` = gsub('Productivity Tools','Ferramentas de produtividade',Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps`)
Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps` = gsub('Language','Linguagem',Impact_of_Mobile_Phone_on_Students_Health$`Educational Apps`)
Impact_of_Mobile_Phone_on_Students_Health$`Daily usages` = gsub('hours','horas',Impact_of_Mobile_Phone_on_Students_Health$`Daily usages`)
Impact_of_Mobile_Phone_on_Students_Health$`Performance impact` = gsub('Agree','Concordo',Impact_of_Mobile_Phone_on_Students_Health$`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health$`Performance impact` = gsub('Disagree','Discordo',Impact_of_Mobile_Phone_on_Students_Health$`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health$`Performance impact` = gsub('Strongly agree','Concordo totalmente',Impact_of_Mobile_Phone_on_Students_Health$`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health$`Performance impact` = gsub('Strongly disagree','Discordo totalmente',Impact_of_Mobile_Phone_on_Students_Health$`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health$`Performance impact` = gsub('Neutral','Neutro',Impact_of_Mobile_Phone_on_Students_Health$`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction` = gsub('During Exams','Durante os exames',Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction` = gsub('Not Distracting','Não distrai',Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction` = gsub('During Class Lectures','Durante as aulas',Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction` = gsub('While Studying','Enquanto estuda',Impact_of_Mobile_Phone_on_Students_Health$`Usage distraction`)
Impact_of_Mobile_Phone_on_Students_Health$`Attention span` = gsub('Yes','Sim',Impact_of_Mobile_Phone_on_Students_Health$`Attention span`)
Impact_of_Mobile_Phone_on_Students_Health$`Attention span` = gsub('No','Não',Impact_of_Mobile_Phone_on_Students_Health$`Attention span`)
Impact_of_Mobile_Phone_on_Students_Health$`Useful features` = gsub('Camera','Câmera',Impact_of_Mobile_Phone_on_Students_Health$`Useful features`)
Impact_of_Mobile_Phone_on_Students_Health$`Useful features` = gsub('Notes Taking App','Bloco de Notas',Impact_of_Mobile_Phone_on_Students_Health$`Useful features`)
Impact_of_Mobile_Phone_on_Students_Health$`Useful features` = gsub('Internet Access','Acesso à Internet',Impact_of_Mobile_Phone_on_Students_Health$`Useful features`)
Impact_of_Mobile_Phone_on_Students_Health$`Useful features` = gsub('Calculator','Calculadora',Impact_of_Mobile_Phone_on_Students_Health$`Useful features`)
Impact_of_Mobile_Phone_on_Students_Health$`Health Risks` = gsub('Yes','Sim',Impact_of_Mobile_Phone_on_Students_Health$`Health Risks`)
Impact_of_Mobile_Phone_on_Students_Health$`Health Risks` = gsub('No','Não',Impact_of_Mobile_Phone_on_Students_Health$`Health Risks`)
Impact_of_Mobile_Phone_on_Students_Health$`Health Risks` = gsub('Only Partially','Apenas parcialmente',Impact_of_Mobile_Phone_on_Students_Health$`Health Risks`)
Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject` = gsub('Accounting','Contabilidade',Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject`)
Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject` = gsub('Browsing Material','Navegação em material',Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject`)
Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject` = gsub('Reasarch','Pesquisa',Impact_of_Mobile_Phone_on_Students_Health$`Beneficial subject`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms` = gsub('Headache','Enxaqueca',Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms` = gsub('Anxiety or Stress','Ansiedade',Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms` = gsub('Sleep disturbance','Distúrbios',Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms`)
Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms` = gsub('All of these','Todos esses',Impact_of_Mobile_Phone_on_Students_Health$`Usage symptoms`)
Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency` = gsub('Sometimes','Às vezes',Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency`)
Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency` = gsub('Frequently','Frequentemente',Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency`)
Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency` = gsub('Never','Nunca',Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency`)
Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency` = gsub('Rarely','Raramente',Impact_of_Mobile_Phone_on_Students_Health$`Symptom frequency`)
Impact_of_Mobile_Phone_on_Students_Health$`Health precautions` = gsub('Using Blue light filter','Usar filtro de luz azul',Impact_of_Mobile_Phone_on_Students_Health$`Health precautions`)
Impact_of_Mobile_Phone_on_Students_Health$`Health precautions` = gsub('Taking Break during prolonged use','Pausa durante o uso prolongado',Impact_of_Mobile_Phone_on_Students_Health$`Health precautions`)
Impact_of_Mobile_Phone_on_Students_Health$`Health precautions` = gsub('None of Above','Nenhum',Impact_of_Mobile_Phone_on_Students_Health$`Health precautions`)
Impact_of_Mobile_Phone_on_Students_Health$`Health precautions` = gsub('Limiting Screen Time','Limitar o tempo de tela',Impact_of_Mobile_Phone_on_Students_Health$`Health precautions`)
Impact_of_Mobile_Phone_on_Students_Health$`Health rating` = gsub('Excellent','Excelente',Impact_of_Mobile_Phone_on_Students_Health$`Health rating`)
Impact_of_Mobile_Phone_on_Students_Health$`Health rating` = gsub('Good','Bom',Impact_of_Mobile_Phone_on_Students_Health$`Health rating`)
Impact_of_Mobile_Phone_on_Students_Health$`Health rating` = gsub('Fair','Regular',Impact_of_Mobile_Phone_on_Students_Health$`Health rating`)
Impact_of_Mobile_Phone_on_Students_Health$`Health rating` = gsub('Poor','Ruim',Impact_of_Mobile_Phone_on_Students_Health$`Health rating`)
#traduzindo as varáiveis
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(Genero=Gender)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(Celular=`Mobile Phone`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(Nomes=Names)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(Idade=Age)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Sistema Operacional'=`Mobile Operating System`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Atividades de celular'=`Mobile phone activities`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Uso do telefone celular para fins educacionais'=`Mobile phone use for education`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Útil para estudar'=`Helpful for studying`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Aplicativos educacionais'=`Educational Apps`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Usos diários'=`Daily usages`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Impacto no desempenho'=`Performance impact`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Distração de uso'=`Usage distraction`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Período de atenção'=`Attention span`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Recursos úteis'=`Useful features`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Riscos para a saúde'=`Health Risks`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Disciplina benéfica'=`Beneficial subject`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename('Sintomas de uso'=`Usage symptoms`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(`Frequência dos sintomas`=`Symptom frequency`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health %>% rename(`Precauções de saúde`=`Health precautions`)
Impact_of_Mobile_Phone_on_Students_Health = Impact_of_Mobile_Phone_on_Students_Health%>% rename(`Classificação de saúde`=`Health rating`)
Impact_of_Mobile_Phone_on_Students_Health$`Sintomas de uso`= gsub('Enxaqueca;Distúrbios;Ansiedade;Todos esses','Todos esses',Impact_of_Mobile_Phone_on_Students_Health$`Sintomas de uso`)
Impact_of_Mobile_Phone_on_Students_Health$`Uso do telefone celular para fins educacionais` = factor(Impact_of_Mobile_Phone_on_Students_Health$`Uso do telefone celular para fins educacionais`,levels=c("Nunca","Raramente","Às vezes","Frequentemente"))A pesquisa adota metodologias quantitativas e qualitativas para investigar o impacto do uso de celulares na saúde e no desempenho acadêmico dos estudantes. As etapas principais envolvem a seleção das variáveis, a análise exploratória dos dados e a criação de gráficos para visualização e interpretação dos resultados.
Como parte da análise exploratória, foram criados gráficos de barras (Barplot) para examinar a distribuição de variáveis categóricas, incluindo as atividades realizadas no celular e as medidas de precaução adotadas pelos estudantes. Esses gráficos forneceram insights sobre os padrões gerais e a frequência das respostas.
library(reactable)## Warning: pacote 'reactable' foi compilado no R versão 4.4.1head(Impact_of_Mobile_Phone_on_Students_Health) %>% reactable()A base de dados contém 100 observações (linhas), correspondendo a 100 alunos que participaram da pesquisa. No entanto, após a exclusão dos valores ausentes (NA), restaram 91 linhas. Assim, a base de dados inicial é composta por 100 alunos, dos quais 9 não responderam todas as perguntas do formulário.
O objetivo da nossa pesquisa é analisar como o uso do celular afeta a saúde e o desempenho acadêmico dos alunos. Para isso, escolhemos 3 hipóteses para analisar:
Hipotese 1: O sistema operacional, interfere nos fins educacioanis?
Hipótese 2: O uso do celular, impacta na saude do aluno?
Hipótese 3: O uso diário, impacta nos sintomas dos alunos?
Hipótese 1:
H0: Não há associação entre o sistema operacional e os fins educacional.
H1: Há associação entre o sistema operacional e os os fins educacionais.
Hipótese 2:
H0: Não há associação do uso do celular com a saude dos alunos.
H1: Há associação entre o uso do celular com a saude dos alunos.
Hipótese 3:
H0: Não há associação entre o uso diário e o impacto nos sintomas dos alunos.
H1: Há associação entre o uso diário e impacta os sintomas dos alunos.
alpha: 0,05
Se o pvalor <= 0,05 Rejeita H0
Se o pvalor > 0,05 Não Rejeita H0