Descrição da atividade

Fazer uma publicação no RPUBS de uma tabela e de um gráfico de pizza (ou um gráfico de barras) para uma variável categórica na base de dados chamada “Questionario_Estresse.xlsx”

OBS - Obrigatória a interpretação do seu gráfico em pelo menos um parágrafo.

library(readxl)
Questionario_Estresse <- read_excel("C:\\Users\\marco\\Desktop\\Base_de_dados-master\\Questionario_Estresse.xls")
View(Questionario_Estresse)

Com base nos dados apresentados na planilha excel - “Questionário_Estresse”, podemos obter as seguintes informações:

Alunos que moram com os pais:

matpais = matrix(Questionario_Estresse$Mora_pais)
tabpais = table(matpais)
  dimnames(tabpais)=list(c("Sim","Não"))
tabpais
## Sim Não 
##  44  51


Outra informação relavante também é a quantidade de pessoas com relacionamento.

tab02 = table(Questionario_Estresse$Namorado_a)
porcenttab02 = round(tab02/sum(tab02)*100,1)
rotulo=paste(c("Sim","Não")," (",porcenttab02,"%",")",sep="")
pie(table(Questionario_Estresse$Namorado_a),labels=rotulo, main="Possui Relacionamento", col=c("blue","yellow"))


Observamos também a quantidade de horas que os alunos se dedicam aos estudos:

hist(Questionario_Estresse$Horas_estudo, main = "Dedicação aos Estudos", xlab="Horas", ylab="Qtdd de alunos", breaks = seq(5, 60, 2.5),
     density = 30, angle = 45, col = "gray", labels = TRUE, xlim = c(0,60) ,ylim = c(0,30))


Fazendo uma combinação com os dados podemos ver a quantidade de alunos que moram com os pais ou sozinhos e que possuem ou não relacionamento.

#Gerando matriz de conta para combinação MoraNamora = 6, moranãonamor = 7; sozinamora = 11, sozinnaonamo = 12
#matriz da coluna de morar com os pais#
matpais=matrix(Questionario_Estresse$Mora_pais) 
#matiz da coluna de ter relacionamento#
matrel=matrix(Questionario_Estresse$Namorado_a) 
#adição da matriz morar com a multiplicação da matriz relacionamentos#
mattot=matpais+(5*matrel) 
#criação da matriz com a quantidade de horas em relação a matriz morar e relaciona#
mathoras=matrix(Questionario_Estresse$Horas_estudo)
tabmattot=table(mattot) 
  dimnames(tabmattot)=list(c("Mora com os Pais e Namora","Mora com os Pais e Não Namora","Mora Sozinho e Namora","Mora Sozinho e Não Namora"))
tabmattot
##     Mora com os Pais e Namora Mora com os Pais e Não Namora 
##                            19                            28 
##         Mora Sozinho e Namora     Mora Sozinho e Não Namora 
##                            25                            23


Em publicações futuras, após aprofundamento nas ferramentas em “R”, poderemos realizar a filtragem para comparação entre as horas dedicadas pela métrica acima, veremos então a interferência entre as horas dedicadas aos estudos entre as pessoas que moram com os pais ou sozinhos, e o impacto de relacionamentos nestas mesmas horas.