INTRODUCCION
La salud mental como bien sabemos es un tema de bastante interés, el cual desencadena muchas cosas, ya que es este el encargado de nuestro bienestar, tanto social, psicológico y emocional. Es el encargado de definir nuestro comportamiento y decisiones que tomamos en nuestra vida cotidiana, a veces pasamos este tema desapercibido y no le brindamos la importancia que realmente merece, esto hace que los problemas de salud mental avancen hasta llegar a un punto donde pueden incluso no ser tratados con facilidad, que requiramos de un acompañamiento psicológico el cual nos ayude a superar estas etapas de crisis, es importante prestarle atención desde la infancia hasta la vejez ya que a cualquier edad estamos vulnerables a presentarlo. Por lo tanto se decidió realizar una encuesta en la universidad industrial de Santander a unos grupos de estudiantes de ingeniería civil seleccionados aleatoriamente abarcando el tema de la importancia en la salud mental de los estudiantes en cuanto a estudio y trabajo.La encuesta realizada fue la siguiente https://docs.google.com/spreadsheets/d/1teAr37ghGauGOz0OeGE8VWQb_0gsbkBOAcqk8vV4Hss/edit?usp=sharing
Para el desarrollo de la encuesta se plantearon las siguientes preguntas, las cuales se dividen entre categóricas y numéricas
PREGUNTAS
1 ID o Código
2 Genero
3 ¿Estudia o trabaja y estudia?
4 ¿A que carrera pertenece?
5 ¿Del 1 al 100, siendo uno la calificación más baja y cien la más alta, en que escala se encuentra su salud?
6 ¿Considera importante los centros de apoyo para salud mental en su institución o lugar de trabajo?
7 ¿En la escala del 1 al 5, siendo uno la calificación más baja y cinco la más alta, que importancia le da a su salud mental?
8 ¿Qué tanto se ve perjudicada su salud mental respecto al trabajo o estudio?
9 ¿Ha presentado casos de ansiedad debido a la recarga estudiantil o laboral?
10 ¿Cuántas materias cree considerable que se deba ver en un semestre de modo que no se vea perjudicada su salud mental?
11 ¿En promedio cuántas horas descansa semanalmente?
PRUEBA PILOTO. primero se realizo una prueba piloto a 5 estudiantes de ingeniería civil para hallar el tamaño de muestra (n) con un N=1271, el cuál se evidencia a continuación:
library(readxl)
encuesta <- read_excel("encuesta.xlsx")
View(encuesta)
attach(encuesta)
names(encuesta)
colnames(encuesta)=c("codigo","genero","estudia_trabaja","carrera","estado_salud","importancia_apoyo","importancia_personal","afectacion","ansiedad","materias","descanso")
library(TeachingSampling)
set.seed(2)
pp=S.SI(nrow(encuesta),5)
table(pp)
piloto=encuesta[pp,]
v_p=var(piloto$estado_salud)
d_p=sd(piloto$estado_salud)
desv_deseada=d_p/8
var_deseada=desv_deseada^2
N=1271
n=(N*v_p)/((N*var_deseada)+v_p)obteniendo un tamaño de muestra n= 61
TRATAMIENTO DE DATOS
Al tener el n=61 procedimos a utilizar el muestreo por conglomerado en los estudiantes de ingeniería civil, para lo cual tomamos los 10 semestres y aleatorizamos para tomar uno, seguido tomamos el numero de materias del semestre y nuevamente aleatorizamos una, y por ultimo tomamos los grupos que esten cursando la materia para aleatorizar el numero conveniente para cumplir el tamaño de muestra y hacer el censo.
aleatorizo por conglomerados para n=61
library(readxl)
df <- read_excel("C:/Users/lenovo/Downloads/EncuestaF.xlsx")
View(df)
attach(df)
names(df)
colnames(df)=c("codigo","genero","estudia_trabaja","carrera","estado_salud","importancia_apoyo","importancia_personal","afectacion","ansiedad","materias","descanso")
set.seed(2)
muestra=S.SI(10,1)
set.seed(2)
muestra2=S.SI(5,1)
set.seed(2)
muestra3=S.SI(10,4)
CRUCES DE VARIABLES
Se realizan cruces de variables categóricas
### primer cruce de variables categoricas con paquete
library(gmodels)
CrossTable(df$importancia_apoyo, df$importancia_personal, prop.r = F, prop.t = F, expected = F,
prop.chisq = F)##Relativa columna
### segundo cruce de variables categoricas con paquete
library(gmodels)
CrossTable(df$afectacion, df$ansiedad, prop.r = F, prop.t = F, expected = F,
prop.chisq = F)##Relativa columna
### cruce de variables categoricas vs numerica
library(crosstable)
crosstable(df,c(descanso) , by=c(estudia_trabaja)) %>%
as_flextable(keep_id=TRUE)ANALISIS primer cruce de variables categoricas con paquete De este cruce podemos observar que una persona no le da importancia a los centros de apoyo y a su vez tiene un nivel medio de importancia personal, y de las personas que contestaron si a la importancia de los centros de apoyo una le da una calificación de 1 a su importancia personal, 11 le dan un 3, 22 un 4 y 25 le dan un 5 siendo el total de encuestados
segundo cruce de variables categoricas con paquete Observamos que 3 de los encuestados que tienen un nivel de afectación medio no presentan ansiedad debido a cargas estudiantiles o laborales mientras que 26 en ese mismo nivel de afectación si presentan problemas de ansiedad y que en afectación alta ninguno tuvo problemas de ansiedad como por el contrario 23 si lo tuvieron, y en el nivel muy alto estuvieron 8 censados y todos presentaron problemas de ansiedad debido a estas cargas
cruce de variables categoricas vs numerica En este cruce de variables podemos observar el promedio de horas que descansan por semana las personas que estudian y trabajan en una lectura podemos ver que las que descansan 70h, 3(75%) solo estudian y 1(25%) estudia y trabaja.
ESTADISTICA DESCRIPTIVA VARIABLES CATEGÓRICAS
### Tabla de frecuencias categorica genero
library(fdth)
df$genero=as.factor(df$genero)
tabla4=fdt_cat(df$genero)
tabla4
### Tabla de frecuencias categorica estudia_trabaja
library(fdth)
df$estudia_trabaja=as.factor(df$estudia_trabaja)
tabla5=fdt_cat(df$estudia_trabaja)
tabla5
### Tabla de frecuencias categorica importancia_apoyo
library(fdth)
df$importancia_apoyo=as.factor(df$importancia_apoyo)
tabla6=fdt_cat(df$importancia_apoyo)
tabla6
### Tabla de frecuencias categorica importancia_personal
library(fdth)
df$importancia_personal=as.factor(df$importancia_personal)
tabla7=fdt_cat(df$importancia_personal)
tabla7
### Tabla de frecuencias categorica afectacion
library(fdth)
df$afectacion=as.factor(df$afectacion)
tabla8=fdt_cat(df$afectacion)
tabla8ANALISIS
En la tabla 4 podemos deducir que en la realizacion de esta encuesta en los grupos habia frecuencia relativa un 65% H, y un 35% M, es decir mas hombres encuestados que mujeres.
En la tabla 5 observamos que los que solo estudian tienen frecuencia relativa de 66.67% y los que estudian y trabajan una frecuencia relativa de 33.33%, es decir que mas personas solo se dedican a estudiar.
En la tabla 6 observamos que los que las personas que consideran importante los centros de apoyo tienen frecuencia relativa de 98.33% y los que no una frecuencia relativa de 1.67%, por lo tanto se afirma que casi en su totalidad se cree importante los centros de apoyo.
En la tabla 7 observamos la importancia que le dan las personas a su salud mental en escala del 1 al 5 siendo 1 la mas baja y 5 la mas alta obteniendo resultados de frecuencias relativas de la siguiente manera: un 41.67% (5), un 36.67% (4), un 20% (3), y un 1.67% (1).
En la tabla 8 observamos Qué tanto se ve perjudicada la salud mental respecto al trabajo o estudio obteniendo resultados de la siguiente manera, frecuencia relativa de las personas que la afectacion es muy alta es 13.33%, las que son altas un 38.33%, y medio de 48.33%, se puede decir que almenos se tiene una afectacion media en la salud mental en espacios laborales y estudiantiles.
ESTADISTICA DESCRIPTIVA VARIABLES NUMERICAS usando el paquete pastecs el cuál nos arroja todos los resultados.
### estado_salud
library(fdth)
tabla1=fdt(df$estado_salud,start=min(df$estado_salud),end=max(df$estado_salud)+1, h=20)
tabla1
library(pastecs)
stat.desc(df$estado_salud)
###materias
library(fdth)
tabla2=fdt(df$materias,start=min(df$materias),end=max(df$materias)+1, h=20)
tabla2
library(pastecs)
stat.desc(df$materias)
### descanso
library(fdth)
tabla3=fdt(df$descanso,start=min(df$descanso),end=max(df$descanso)+1, h=20)
tabla3
library(pastecs)
stat.desc(df$descanso)ANALISIS
Para la variable estado_salud: Se encontró que el intervalo mínimo y máximo está entre 20 y 100,su promedio es 74.55, su rango es de 80, su media es de 77, Su varianza es de 226, su desviación estándar es de 15.04, por último el coeficiente de variación es de 0,201.
Para la variable materias: Se encontró que el intervalo mínimo y máximo está entre 3 y 6, su promedio es 4.91, su rango es de 3, su media es de 5, Su varianza es de 0.281, su desviación estándar es de 0.53, por último el coeficiente de variación es de 0,107.
Para la variable descanso: Se encontró que el intervalo mínimo y máximo está entre 5 y 85,su promedio es 37.6, su rango es de 80, su media es de 34.5, Su varianza es de 331.2, su desviación estándar es de 18.20, por último el coeficiente de variación es de 0,4832.
CONCLUSIONE
se puede concluir que la salud mental es un estado de bienestar mental que permite a las personas hacer frente a los momentos de estrés de la vida, desarrollar todas sus habilidades, poder aprender y trabajar adecuadamente y contribuir a la mejora de su comunidad. La verdadera medida de la salud no es la ausencia de enfermedad o invalidez, sino la capacidad de funcionar efectivamente dentro de un determinado medio ambiente, es el proceso de adaptación contínua por lo cual vimos al realizar esta encuesta la importancia de prestar atencion a este tema y los apoyos que se deben tener para controlarlo.
ANEXO LINK VIDEO
ANEXO LIN DATOS