Tabla de Contenidos
Script en R
#PREGUNTA 2 - CALCULO FRECUENCIA DE MORBILIDAD PSIQUICA
#FRECUENCIAS ABSOLUTAS
table(ense$GHQ12_rec)
tabla.GHQ12_rec <- table(ense$GHQ12_rec)
barplot(tabla.GHQ12_rec, ylab = "frecuencia absoluta (n)",xlab = "morbilidad psíquica",
ylim = c(0, 20000),
col=c("lightblue","grey"))
title(main = "Frecuencia Absoluta Morbilidad Psíquica", font.main = 4, )
legend("topright", #M) Leyenda en parte superior derecha
c("Sí","No"), #N) Las leyendas
fill = c("lightblue","grey"), #O) Colores de las leyendas
title = "Morbilidad Psíquica", #P) Título de la leyenda]
text.font = 4, #Q) Fuente del texto de la leyenda
bg= 'white' #R) Color del fondo de la caja de la leyenda
)
#FRECUENCIAS RELATIVAS
prop.table(tabla.GHQ12_rec) #frecuencias relativas
tabla.GHQ12PCT<-prop.table(tabla.GHQ12_rec)#proporcion en uno por cien
tabla.GHQ12PCT*100 ##### proporcion en uno por cien
barplot(tabla.GHQ12PCT*100, ylab = "frecuencia relativa (%)", xlab = "morbilidad psíquica",
ylim = c(0, 100),col=c("lightblue","grey"))
title(main = "Frecuencia Relativa Morbilidad Psíquica", font.main = 4, )
legend("topright", #M) Leyenda en parte superior derecha
c("Sí","No"), #N) Las leyendas
fill = c("lightblue","grey"), #O) Colores de las leyendas
title = "Morbilidad Psíquica", #P) Título de la leyenda]
text.font = 4, #Q) Fuente del texto de la leyenda
bg= 'white' #R) Color del fondo de la caja de la leyenda
)
#DESAGREGADA POR HOMBRES Y MUJERES
Tabla.sexo<-table(ense$GHQ12_rec,ense$SEXOa)
Tabla.sexo #1=hombre, 2=mujer
prop.table(Tabla.sexo) #porcentaje total
prop.table(Tabla.sexo,margin=2)#porcentaje por columnas
tabla.sexo.2 <- prop.table(Tabla.sexo,margin=2)*100
tabla.sexo.2
barplot(tabla.sexo.2, ylab = "frecuencia (%)",xlab = "sexo", col=c("grey", "lightblue"))
title(main = "Frecuencia Morbilidad Psíquica por Sexos", font.main = 4, )
legend("topright", #M) Leyenda en parte superior derecha
c("Sí","No"), #N) Las leyendas
fill = c("lightblue","grey"), #O) Colores de las leyendas
title = "Morbilidad Psíquica", #P) Título de la leyenda]
text.font = 4, #Q) Fuente del texto de la leyenda
bg= 'white' #R) Color del fondo de la caja de la leyenda
)
# Visualización de morbilidad psíquica desagregada por género
ggplot(ense, aes(x = GHQ12_rec, fill = SEXOa)) +
geom_bar(position = "dodge", color = "black") +
theme_minimal() +
labs(title = "Morbilidad Psíquica Desagregada por Género", x = "Morbilidad Psíquica", y = "Frecuencia") +
scale_fill_brewer(palette = "Set1")
# Asumiendo que GHQ12 es una variable numérica y EDADa también es numérica
plotly_scatter <- plot_ly(data = ense, x = ~EDADa, y = ~GHQ12, type = 'scatter', mode = 'markers',
color = ~SEXOa, colors = c('blue', 'red')) %>%
layout(title = 'Relación entre Edad y Morbilidad Psíquica por Género',
xaxis = list(title = 'Edad'),
yaxis = list(title = 'Puntuación de Morbilidad Psíquica'))
# Mostrar el gráfico
plotly_scatter
Resumen explicativo del script
El script realiza un análisis de la frecuencia de morbilidad psíquica en un conjunto de datos, representado por la variable ense. El script se divide en tres partes principales: cálculo y visualización de frecuencias absolutas, frecuencias relativas, y una desagregación por género. Aquí está el detalle de cada sección:
1. Frecuencias Absolutas
table(ense$GHQ12_rec): Calcula la frecuencia absoluta de las respuestas en ense$GHQ12_rec.
barplot(…): Crea un gráfico de barras para estas frecuencias absolutas. Las barras se colorean en azul claro y gris. Los ejes X e Y están etiquetados como «morbilidad psíquica» y «frecuencia absoluta (n)», respectivamente. El límite del eje Y se establece de 0 a 20000.
title(…), legend(…): Añade un título y una leyenda al gráfico.
2. Frecuencias Relativas
prop.table(tabla.GHQ12_rec): Calcula la frecuencia relativa de las respuestas.
barplot(…): Crea un gráfico de barras para estas frecuencias relativas, expresadas en porcentaje. La configuración es similar a la de las frecuencias absolutas, pero el eje Y se muestra como porcentaje (0 a 100%).
3. Desagregada por Género
table(ense$GHQ12_rec, ense$SEXOa): Crea una tabla de contingencia para morbilidad psíquica desglosada por género.
prop.table(Tabla.sexo, margin=2): Calcula las frecuencias relativas por género.
barplot(…): Crea un gráfico de barras para estas frecuencias, mostrando la distribución por género. Se utiliza la misma paleta de colores y se añaden títulos y leyendas similares.
4. Resumen Final
Este script proporciona una visión clara de la distribución de la morbilidad psíquica en el conjunto de datos, tanto en términos absolutos como relativos, y también ofrece una comparación entre géneros. La visualización mediante gráficos de barras facilita la interpretación de estos datos.
Consola del Script en R
#PREGUNTA 2 - CALCULO FRECUENCIA DE MORBILIDAD PSIQUICA
>
> #FRECUENCIA ABSOLUTA
> table(ense$GHQ12_rec)
No morbilidad psíquica Sí morbilidad psíquica
18688 4401
> tabla.GHQ12_rec <- table(ense$GHQ12_rec)
> barplot(tabla.GHQ12_rec, ylab = "frecuencia absoluta (n)",xlab = "morbilidad psíquica",
+ ylim = c(0, 20000),
+ col=c("lightblue","grey"))
> title(main = "Frecuencia Absoluta Morbilidad Psíquica", font.main = 4, )
> legend("topright", #M) Leyenda en parte superior derecha
+ c("Sí","No"), #N) Las leyendas
+ fill = c("lightblue","grey"), #O) Colores de las leyendas
+ title = "Morbilidad Psíquica", #P) Título de la leyenda]
+ text.font = 4, #Q) Fuente del texto de la leyenda
+ bg= 'white' #R) Color del fondo de la caja de la leyenda
+ )
>
> #FRECUENCIA RELATIVA
> prop.table(tabla.GHQ12_rec) #frecuencias relativas
No morbilidad psíquica Sí morbilidad psíquica
0.8093898 0.1906102
> tabla.GHQ12PCT<-prop.table(tabla.GHQ12_rec)#proporcion en uno por cien
> tabla.GHQ12PCT*100 ##### proporcion en uno por cien
No morbilidad psíquica Sí morbilidad psíquica
80.93898 19.06102
> barplot(tabla.GHQ12PCT*100, ylab = "frecuencia relativa (%)", xlab = "morbilidad psíquica",
+ ylim = c(0, 100),col=c("lightblue","grey"))
> title(main = "Frecuencia Relativa Morbilidad Psíquica", font.main = 4, )
> legend("topright", #M) Leyenda en parte superior derecha
+ c("Sí","No"), #N) Las leyendas
+ fill = c("lightblue","grey"), #O) Colores de las leyendas
+ title = "Morbilidad Psíquica", #P) Título de la leyenda]
+ text.font = 4, #Q) Fuente del texto de la leyenda
+ bg= 'white' #R) Color del fondo de la caja de la leyenda
+ )
>
> #DESAGREADA POR HMBRE Y MUJERES
> Tabla.sexo<-table(ense$GHQ12_rec,ense$SEXOa)
> Tabla.sexo #1=hombre, 2=mujer
hombre mujer
No morbilidad psíquica 9044 9644
Sí morbilidad psíquica 1551 2850
> prop.table(Tabla.sexo) #porcentaje total
hombre mujer
No morbilidad psíquica 0.39170168 0.41768808
Sí morbilidad psíquica 0.06717485 0.12343540
> prop.table(Tabla.sexo,margin=2)#porcentaje por columnas
hombre mujer
No morbilidad psíquica 0.8536102 0.7718905
Sí morbilidad psíquica 0.1463898 0.2281095
> tabla.sexo.2 <- prop.table(Tabla.sexo,margin=2)*100
> tabla.sexo.2
hombre mujer
No morbilidad psíquica 85.36102 77.18905
Sí morbilidad psíquica 14.63898 22.81095
> barplot(tabla.sexo.2, ylab = "frecuencia (%)",xlab = "sexo", col=c("grey", "lightblue"))
> title(main = "Frecuencia Morbilidad Psíquica por Sexos", font.main = 4, )
> legend("topright", #M) Leyenda en parte superior derecha
+ c("Sí","No"), #N) Las leyendas
+ fill = c("lightblue","grey"), #O) Colores de las leyendas
+ title = "Morbilidad Psíquica", #P) Título de la leyenda]
+ text.font = 4, #Q) Fuente del texto de la leyenda
+ bg= 'white' #R) Color del fondo de la caja de la leyenda
+ )
Explicación de resultados del script
El análisis realizado en el código R proporciona información valiosa sobre la morbilidad psíquica en el conjunto de datos ense, desglosada por frecuencia absoluta, frecuencia relativa, y diferencia entre géneros. A continuación, describo los resultados obtenidos:
Frecuencia Absoluta de Morbilidad Psíquica:
Hay 18,688 casos de «No morbilidad psíquica» y 4,401 de «Sí morbilidad psíquica».
El gráfico de barras creado muestra estas frecuencias, con etiquetas y leyenda adecuadas.
Frecuencia Relativa de Morbilidad Psíquica:
La proporción de casos sin morbilidad psíquica es aproximadamente el 80.94%, mientras que la de casos con morbilidad psíquica es alrededor del 19.06%.
El gráfico de barras de frecuencia relativa refleja estas proporciones en porcentajes.
Frecuencia de Morbilidad Psíquica Desglosada por Género:
En la tabla cruzada, se observa que de los hombres, 9,044 no tienen morbilidad psíquica y 1,551 sí la tienen. En mujeres, 9,644 no tienen morbilidad psíquica y 2,850 sí la tienen.
En términos relativos, el 85.36% de los hombres y el 77.19% de las mujeres no tienen morbilidad psíquica, mientras que el 14.64% de los hombres y el 22.81% de las mujeres sí la tienen.
El gráfico de barras muestra estas proporciones porcentuales por género.
Este análisis permite concluir que hay una mayor proporción de mujeres que reportan morbilidad psíquica en comparación con los hombres en este conjunto de datos. Estos hallazgos son importantes para comprender las diferencias de género en la morbilidad psíquica dentro de la población estudiada.
El cuidado de personas mayores parece estar asociado con un aumento en el riesgo de morbilidad psíquica, lo que subraya la importancia de brindar apoyo adecuado a los cuidadores.
