Contexto

Este estudio recopila datos de pacientes con distintos diagnósticos psicológicos (ansiedad, TOC, entre otros), evaluando tanto variables clínicas (niveles de depresión y ansiedad) como factores relacionados con la intervención (asistencia a terapia, frecuencia, satisfacción) y elementos contextuales (medicación y apoyo familiar). Su propósito parece es analizar la relación entre las variables clínicas, la participación en tratamiento psicológico y el apoyo social.

library(readxl)
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(corrplot)
## corrplot 0.95 loaded
library(ggpubr)

data <- read_excel("Base_Psicologia_Clinica (1).xlsx", sheet = "Sheet1")
dim(data)
## [1] 100  11
data
## # A tibble: 100 × 11
##     edad sexo      nivel_educativo diagnostico_psicologico nivel_depresion
##    <dbl> <chr>     <chr>           <chr>                             <dbl>
##  1    29 Masculino Postgrado       Ansiedad                              4
##  2    35 Femenino  Universitario   Ansiedad                              6
##  3    38 Femenino  Postgrado       TOC                                   5
##  4    34 Otro      Secundaria      TOC                                   1
##  5    61 Femenino  Técnico         Ansiedad                              5
##  6    65 Femenino  Postgrado       Ninguno                               1
##  7    35 Masculino Secundaria      Depresión                             4
##  8    43 Femenino  Técnico         Ninguno                               4
##  9    32 Masculino Postgrado       Ansiedad                              9
## 10    53 Femenino  Técnico         Ansiedad                              4
## # ℹ 90 more rows
## # ℹ 6 more variables: nivel_ansiedad <dbl>, ha_asistido_terapia <chr>,
## #   frecuencia_terapia <chr>, medicacion_psiquiatrica <chr>,
## #   satisfaccion_con_terapia <dbl>, apoyo_familiar <chr>

En primer lugar se visualiza las dimensiones de la base de datos, la cual consta de 100 observaciones con 11 variables.

Se procede a verificar cuando es el porcentaje de NA de la data.

library(Amelia)
## Loading required package: Rcpp
## ## 
## ## Amelia II: Multiple Imputation
## ## (Version 1.8.3, built: 2024-11-07)
## ## Copyright (C) 2005-2025 James Honaker, Gary King and Matthew Blackwell
## ## Refer to http://gking.harvard.edu/amelia/ for more information
## ##
# Convertir a data frame clásico
data_df <- as.data.frame(data)

# Visualizar los NA
missmap(data_df)

De la figura anterior podemos afirmar que no se identificaron valores faltantes en ninguna de las 11 variables; todos los 100 casos están completos.

La ausencia de NA facilita el análisis y evita la necesidad de procedimientos de imputación para un análisis descriptivo inicial. Aun así, conviene verificar el proceso de recolección (fuente) para confirmar que la ausencia de NA no sea consecuencia de recodificación que haya borrado registros originales.

summary(data)
##       edad           sexo           nivel_educativo    diagnostico_psicologico
##  Min.   :18.00   Length:100         Length:100         Length:100             
##  1st Qu.:28.75   Class :character   Class :character   Class :character       
##  Median :39.50   Mode  :character   Mode  :character   Mode  :character       
##  Mean   :40.76                                                                
##  3rd Qu.:54.00                                                                
##  Max.   :65.00                                                                
##  nivel_depresion nivel_ansiedad  ha_asistido_terapia frecuencia_terapia
##  Min.   : 1.00   Min.   : 1.00   Length:100          Length:100        
##  1st Qu.: 3.00   1st Qu.: 4.00   Class :character    Class :character  
##  Median : 5.00   Median : 6.50   Mode  :character    Mode  :character  
##  Mean   : 5.44   Mean   : 6.17                                         
##  3rd Qu.: 8.00   3rd Qu.: 8.00                                         
##  Max.   :10.00   Max.   :10.00                                         
##  medicacion_psiquiatrica satisfaccion_con_terapia apoyo_familiar    
##  Length:100              Min.   : 1.00            Length:100        
##  Class :character        1st Qu.: 3.00            Class :character  
##  Mode  :character        Median : 5.50            Mode  :character  
##                          Mean   : 5.38                              
##                          3rd Qu.: 8.00                              
##                          Max.   :10.00

La muestra analizada presenta un rango de edad entre 18 y 65 años, con una media de 40.76 años y una mediana de 39.50 años. El nivel de depresión varía entre 1 y 10, con una media de 5.44 y una mediana de 5.00, donde el 25% de los participantes obtienen valores inferiores a 3 y el 75% inferiores a 8. En cuanto al nivel de ansiedad, los valores también oscilan entre 1 y 10, con una media de 6.17 y una mediana de 6.50, evidenciando una tendencia hacia niveles moderados de sintomatología ansiosa. La satisfacción con la terapia se distribuye en un rango de 1 a 10, con una media de 5.38 y una mediana de 5.50, lo que refleja percepciones intermedias sobre la efectividad del tratamiento. En conjunto, los resultados muestran que la muestra está compuesta por adultos con síntomas emocionales en niveles moderados y con una valoración media respecto a su proceso terapéutico. Se sugiere profundizar en las relaciones entre depresión, ansiedad y satisfacción con la terapia para comprender mejor los patrones de respuesta clínica.

Analisis Univariado

ggplot(data, aes(x = edad)) +
  geom_histogram(binwidth = 5, fill = "darkblue", color = "black") +
  theme_minimal() +
  ggtitle("Distribución de Edad")

El histograma muestra la distribución de edades en la base de datos, con un rango aproximado que va desde los 20 hasta los 70 años. Se observa una mayor concentración de indíviduos en los grupos de edad entre los 20 y los 30 años, asi como entre los 60 y 65 años, mientras que los intervalos alrededor de los 50 años presentan menor frecuencia. Esto indica que la población estudiada se concentra principalmente en adultos jovenes y en adultos mayores cercanos a la edad de jubilación.

Analisis Bivariado

# Instalar (solo una vez)
install.packages("ggplot2")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
# Cargar
library(ggplot2)

# Gráfico boxplot con tu base (suponiendo que tu data se llama 'datos')
ggplot(data, aes(x = diagnostico_psicologico, y = edad, fill = diagnostico_psicologico)) +
  geom_boxplot() +
  theme_minimal() +
  labs(
    title = "Edad según diagnóstico psicológico",
    x = "Diagnóstico psicológico",
    y = "Edad"
  )

El grafico muestra la edad segun diagnostico psicologico, con pacientes con ansiedad y depresión consentrados en edades mas altas, mientras quienes no presentan diagnóstico y los que tienen TOC se ubican en edades mas jovenes.

Conclusion

La muestra analizada, conformada por personas entre 18 y 65 años (media de 40,7 años), no presenta valores faltantes en sus variables, lo que garantiza la calidad del análisis realizado. La distribución etaria muestra una mayor concentración en los grupos de 20 a 30 años y de 60 a 65 años, mientras que alrededor de los 50 años se observa una menor frecuencia de participantes. En cuanto al diagnóstico psicológico, los casos de ansiedad y depresión se concentran en edades medias y mayores, mientras que los diagnósticos de TOC y la ausencia de diagnóstico predominan en edades más jóvenes. Además, los niveles de ansiedad y depresión tienden a ubicarse en rangos intermedios y altos, lo que evidencia la presencia de síntomas emocionales significativos en la población estudiada. Estos hallazgos sugieren la importancia de diseñar estrategias de prevención e intervención en salud mental diferenciadas según la edad y el tipo de diagnóstico, con el fin de responder de manera más precisa a las necesidades detectadas.