3 de junio de 2017
Introduccion
Materiales y metodos
- Se realizaron encuestas dirigidas a la poblacion estudiantil de todas la facultades de la Universidad Nacional de Costa Rica.
- La muestra estuvo conformada por 220 estudiantes, en su mayoria entre los 19 y 21 años de edad, de los cuales, el 63.6 % eran mujeres y el 36.4 % eran hombres.
- De este modo, se creo y utilizo la base de datos "habitos", obtenida a partir de los resultados de la encuesta
str(habitos)
## 'data.frame': 220 obs. of 19 variables: ## $ Edad : int 20 19 21 19 25 18 20 19 18 18 ... ## $ Genero : Factor w/ 2 levels "Hombre","Mujer": 1 1 1 1 1 2 1 2 1 2 ... ## $ EstadoCivil : Factor w/ 5 levels "Casado","Comprometido",..: 4 5 5 5 5 5 4 5 5 5 ... ## $ Facultad : Factor w/ 7 levels "CIDE","CIDEA",..: 3 3 5 7 5 6 3 3 6 7 ... ## $ Vive : Factor w/ 4 levels "Amigos","Companeros",..: 3 2 3 3 3 3 3 3 3 3 ... ## $ Tiempos : Factor w/ 3 levels "1-2","3-4","5": 3 2 2 3 3 3 2 2 2 2 ... ## $ Almuerzo : Factor w/ 3 levels "ComprarU","Traer",..: 1 1 1 2 1 2 2 2 3 1 ... ## $ Bebidas : Factor w/ 4 levels "Agua","Alcoholicas",..: 4 4 4 1 4 4 4 1 2 4 ... ## $ Productos : Factor w/ 4 levels "Comidachatarra",..: 2 2 4 1 4 4 2 2 2 3 ... ## $ Restaurantes: Factor w/ 2 levels "No","Si": 2 2 2 1 2 2 2 2 2 1 ... ## $ Compania : Factor w/ 4 levels "Acompanado","Indiferente",..: 2 2 1 3 1 1 1 1 2 3 ... ## $ Veces : Factor w/ 4 levels "1-2","3-4","5",..: 1 1 1 4 1 1 1 1 2 4 ... ## $ Preferido : Factor w/ 10 levels "KFC","McDonald's",..: 9 10 10 3 9 9 10 9 1 3 ... ## $ Dinero : Factor w/ 5 levels "2000-5000","5000-8000",..: 2 1 1 5 1 4 4 2 1 5 ... ## $ Estres : Factor w/ 2 levels "No","Si": 2 2 2 2 1 2 2 2 2 2 ... ## $ Situaciones : Factor w/ 5 levels "Indiferente",..: 1 1 3 2 4 2 2 2 2 2 ... ## $ Factores : Factor w/ 2 levels "No","Si": 2 2 2 2 2 2 2 2 2 2 ... ## $ Enfermedades: Factor w/ 6 levels "Bajopeso","Cardio",..: 5 1 5 6 5 5 5 6 5 4 ... ## $ Habitos : Factor w/ 2 levels "No","Si": 2 1 1 1 2 2 2 1 2 2 ...
head(habitos, 4)
## Edad Genero EstadoCivil Facultad Vive Tiempos Almuerzo Bebidas ## 1 20 Hombre Relacion Exactas Familia 5 ComprarU Refresco ## 2 19 Hombre Soltero Exactas Companeros 3-4 ComprarU Refresco ## 3 21 Hombre Soltero Salud Familia 3-4 ComprarU Refresco ## 4 19 Hombre Soltero Tierra Familia 5 Traer Agua ## Productos Restaurantes Compania Veces Preferido Dinero Estres ## 1 Comidarapida Si Indiferente 1-2 Subway 5000-8000 Si ## 2 Comidarapida Si Indiferente 1-2 TacoBell 2000-5000 Si ## 3 Ninguna Si Acompanado 1-2 TacoBell 2000-5000 Si ## 4 Comidachatarra No NR NR NR NR Si ## Situaciones Factores Enfermedades Habitos ## 1 Indiferente Si Ninguna Si ## 2 Indiferente Si Bajopeso No ## 3 Menos Si Ninguna No ## 4 Mas Si Sobrepeso No
Basicamente, los analisis realizados se basaron en la aplicacion de pruebas de Chi-cuadrado y Fisher (cuando fuera necesario) a los cuadros elaborados entre dos variables.
Los figuras se realizaron utilizando la herramienta ggplot.
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.3.3
Resultados y discusion
Prueba 1 Chi-cuadrado.
Facultad vs Tiempos
## Tiempos ## Facultad 1-2 3-4 5 ## CIDE 1 11 5 ## CIDEA 2 20 8 ## Exactas 1 30 16 ## Filosofia 3 15 9 ## Salud 2 4 13 ## Sociales 4 47 13 ## Tierra 3 7 6
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Facultad and Tiempos ## p-value = 0.007496 ## alternative hypothesis: two.sided
Comparacion entre las variables Facultad y Tiempos
Prueba 2 Chi-cuadrado.
Facultad vs Estres
## Estres ## Facultad No Si ## CIDE 3 14 ## CIDEA 6 24 ## Exactas 7 40 ## Filosofia 2 25 ## Salud 5 14 ## Sociales 14 50 ## Tierra 0 16
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Facultad and Estres ## p-value = 0.2154 ## alternative hypothesis: two.sided
Comparacion entre las variables Facultad y Estres
Prueba 3 Chi-cuadrado.
Edad vs Estres
## Edad ## Estres 17 18 19 20 21 22 23 24 25 26 27 28 30 ## No 1 6 6 9 3 5 1 2 1 2 0 1 0 ## Si 1 15 42 54 37 15 5 4 6 2 1 0 1
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Edad and Estres ## p-value = 0.07396 ## alternative hypothesis: two.sided
Comparacion entre las variables Edad y Estres
Prueba 4 Chi-cuadrado.
Estres vs Situaciones
## Situaciones ## Estres Indiferente Mas Menos NR Otro ## No 0 0 0 37 0 ## Si 22 104 54 0 3
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Estres and Situaciones ## p-value = 0.0004998 ## alternative hypothesis: two.sided
Comparacion entre las variables Edad y Estres
Prueba 5 Chi-cuadrado.
Veces vs Enfermedades
## Enfermedades ## Veces Bajopeso Cardio Depresion Gastricos Ninguna Sobrepeso ## 1-2 6 0 1 24 80 23 ## 3-4 1 0 1 1 10 4 ## 5 0 0 0 1 1 1 ## NR 1 2 0 15 41 7
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Veces and Enfermedades ## p-value = 0.1784 ## alternative hypothesis: two.sided
Comparacion entre las variables Veces y Enfermedades
Prueba 6 Chi-cuadrado.
Edad vs Enfermedades
## Edad ## Enfermedades 17 18 19 20 21 22 23 24 25 26 27 28 30 ## Bajopeso 0 2 2 1 2 0 0 0 0 1 0 0 0 ## Cardio 0 0 1 0 1 0 0 0 0 0 0 0 0 ## Depresion 0 0 2 0 0 0 0 0 0 0 0 0 0 ## Gastricos 0 2 6 16 10 3 0 3 0 0 0 0 1 ## Ninguna 2 13 30 34 20 16 6 2 5 2 1 1 0 ## Sobrepeso 0 4 7 12 7 1 0 1 2 1 0 0 0
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Edad and Enfermedades ## p-value = 0.5332 ## alternative hypothesis: two.sided
Comparacion entre las variables Edad y Enfermedades
Prueba 7 Chi-cuadrado.
Genero vs Enfermedades
## Enfermedades ## Genero Bajopeso Cardio Depresion Gastricos Ninguna Sobrepeso ## Hombre 5 1 0 8 50 16 ## Mujer 3 1 2 33 82 19
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Genero and Enfermedades ## p-value = 0.04148 ## alternative hypothesis: two.sided
Comparacion entre las variables Genero y Enfermedades
Prueba 8 Chi-cuadrado.
Enfermedades vs Habitos
## Habitos ## Enfermedades No Si ## Bajopeso 7 1 ## Cardio 1 1 ## Depresion 2 0 ## Gastricos 26 15 ## Ninguna 52 80 ## Sobrepeso 28 7
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Enfermedades and Habitos ## p-value = 0.0004998 ## alternative hypothesis: two.sided
Comparacion entre las variables Enfermedades y Habitos
Prueba 9 Chi-cuadrado.
Compania vs Veces
## Veces ## Compania 1-2 3-4 5 NR ## Acompanado 102 11 0 0 ## Indiferente 28 5 2 0 ## NR 0 0 0 66 ## Solo 4 1 1 0
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Compania and Veces ## p-value = 0.0004998 ## alternative hypothesis: two.sided
Comparacion entre las variables Compania y Veces
Prueba 10 Chi-cuadrado.
EstadoCivil y Veces
## Veces ## EstadoCivil 1-2 3-4 5 NR ## Casado 2 0 0 1 ## Comprometido 0 1 0 1 ## Otro 0 0 1 0 ## Relacion 34 3 0 10 ## Soltero 98 13 2 54
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: EstadoCivil and Veces ## p-value = 0.03048 ## alternative hypothesis: two.sided
Comparacion entre las variables EstadoCivil y Veces
Prueba 11 Chi-cuadrado.
Vive vs Habitos
## Habitos ## Vive No Si ## Amigos 8 2 ## Companeros 14 12 ## Familia 85 87 ## Solo 9 3
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Vive and Habitos ## p-value = 0.09945 ## alternative hypothesis: two.sided
Comparacion entre las variables Vive vs Habitos
Prueba 12 Chi-cuadrado.
Vive vs Almuerzo
## Almuerzo ## Vive ComprarU Traer Visitarsodas ## Amigos 3 5 2 ## Companeros 6 16 4 ## Familia 42 95 35 ## Solo 4 4 4
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Vive and Almuerzo ## p-value = 0.7491 ## alternative hypothesis: two.sided
Comparacion entre las variables Vive vs Almuerzo
Prueba 13 Chi-cuadrado.
Dinero vs Habitos
## Habitos ## Dinero No Si ## 2000-5000 59 31 ## 5000-8000 15 7 ## Masde8000 8 3 ## Menosde2000 11 20 ## NR 23 43
## ## Pearson's Chi-squared test ## ## data: Dinero and Habitos ## X-squared = 21.977, df = 4, p-value = 0.0002025
Comparacion entre las variables Dinero y Habitos
Prueba 14 Chi-cuadrado.
Almuerzo vs Veces
## Veces ## Almuerzo 1-2 3-4 5 NR ## ComprarU 34 4 0 17 ## Traer 75 2 0 43 ## Visitarsodas 25 11 3 6
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Almuerzo and Veces ## p-value = 0.0004998 ## alternative hypothesis: two.sided
Comparacion entre las variables Almuerzo y Veces
Prueba 15 Chi-cuadrado.
Preferido vs Dinero
## Dinero ## Preferido 2000-5000 5000-8000 Masde8000 Menosde2000 NR ## KFC 11 3 3 5 0 ## McDonald's 17 2 1 4 0 ## NR 0 0 0 0 66 ## Otro 3 0 0 1 0 ## PapaJhon's 1 0 0 0 0 ## Parrillita 8 2 0 2 0 ## PizzaHut 4 1 1 0 0 ## Quiznos 8 1 0 1 0 ## Subway 23 10 6 10 0 ## TacoBell 15 3 0 8 0
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Preferido and Dinero ## p-value = 0.0004998 ## alternative hypothesis: two.sided
Comparacion entre las variables Preferido y Dinero
Prueba 16 Chi-cuadrado.
Genero vs Productos
## Productos ## Genero Comidachatarra Comidarapida Dulces Ninguna ## Hombre 2 42 9 27 ## Mujer 6 69 33 32
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Genero and Productos ## p-value = 0.06447 ## alternative hypothesis: two.sided
Comparacion entre las variables Genero y Productos
Prueba 17 Chi-cuadrado.
Genero vs Habitos
## Habitos ## Genero No Si ## Hombre 42 38 ## Mujer 74 66
## ## Pearson's Chi-squared test with Yates' continuity correction ## ## data: Genero and Habitos ## X-squared = 1.4468e-30, df = 1, p-value = 1
Comparacion entre las variables Genero y Habitos
Prueba 18 Chi-cuadrado.
Enfermedades vs Almuerzo
## Almuerzo ## Enfermedades ComprarU Traer Visitarsodas ## Bajopeso 5 3 0 ## Cardio 1 1 0 ## Depresion 2 0 0 ## Gastricos 8 24 9 ## Ninguna 36 71 25 ## Sobrepeso 3 21 11
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Enfermedades and Almuerzo ## p-value = 0.02249 ## alternative hypothesis: two.sided
Comparacion entre las variables Enfermedades y Almuerzo
Prueba 19 Chi-cuadrado.
Genero vs Compania
## Compania ## Genero Acompanado Indiferente NR Solo ## Hombre 34 20 21 5 ## Mujer 79 15 45 1
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Genero and Compania ## p-value = 0.004498 ## alternative hypothesis: two.sided
Comparacion entre las variables Genero y Compania
Prueba 20 Chi-cuadrado.
Bebidas vs Almuerzo
## Almuerzo ## Bebidas ComprarU Traer Visitarsodas ## Agua 6 53 10 ## Alcoholicas 0 0 1 ## Gaseosas 4 10 7 ## Refresco 45 57 27
## ## Fisher's Exact Test for Count Data with simulated p-value (based ## on 2000 replicates) ## ## data: Bebidas and Almuerzo ## p-value = 0.0009995 ## alternative hypothesis: two.sided
Comparacion entre las variables Bebidas y Almuerzo
Conclusiones
- Se evidencia la tendencia al frecuente consumo de comidas rapidas por parte de la poblacion estudiantil universitaria.
- Se observo como el estado civil esta fuertemente relacionado con las visitas a este tipo de restaurantes.
- El estres que presentan los estudiantes no depende de la carrera ni facultad en la que estudian, aunque si influye en sus tiempos de comida diarios. En otras palabras, el estres si es un factor decisivo en la alimentacion de los estudiantes.
- La edad de la poblacion estudiantil parece estar fuertemente relacionada con las enfermedades que presentan.
- Poco mas de la mitad de los encuestados afirmaron poseer buenos habitos alimentarios, lo cual evidencia que muchos estudiantes no se estan percatando de su mala alimentacion.