# Cargar librerías necesarias
library(readxl)   # Para leer archivos Excel
library(dplyr)    # Para manipular datos
library(ggplot2)  # Para hacer gráficos
# Cargar datos
df <- read_excel("PE-04 - IES MEZCLA.xlsx")
# Crear columna que identifica si la institución es SENA u otra
df <- df %>%
  mutate(INSTITUCIÓN = if_else(grepl("CENTRO NACIONAL COLOMBO ALEMAN", `NOMBRE CENTRO`, ignore.case = TRUE),
                                    "CENTRO NACIONAL COLOMBO ALEMAN",
                                    "OTRAS INSTITUCIONES"))

Introducción

En la actualidad, la toma de decisiones informadas en materia educativa requiere contar con datos confiables, actualizados y sistemáticamente organizados. En el contexto de la formación técnica y tecnológica en Colombia, existe una amplia disponibilidad de información sobre los graduados de las Instituciones de Educación Superior (IES) y los certificados emitidos por el Servicio Nacional de Aprendizaje (SENA). Sin embargo, dicha información suele encontrarse dispersa y poco estructurada para su comparación detallada entre instituciones.

Este informe presenta un análisis estadístico y visual de los graduados registrados durante el año 2023 en programas de formación técnica y tecnológica, con un enfoque comparativo entre el Centro Nacional Colombo Alemán del SENA y el conjunto de otras instituciones presentes en el departamento del Atlántico. La exploración de estos datos permite identificar tendencias por semestre, modalidad de formación, municipio y programa académico, con el propósito de generar insumos objetivos que contribuyan a la toma de decisiones estratégicas a nivel institucional y regional.

Objetivo General

Realizar un análisis comparativo de los graduados de programas de formación técnica y tecnológica del Centro Nacional Colombo Alemán del Servicio Nacional de Aprendizaje (SENA) frente a otras Instituciones de Educación Superior en el departamento del Atlántico durante el año 2023, mediante la aplicación de técnicas de visualización de datos y análisis estadístico en R, con el propósito de caracterizar la distribución de egresados por semestre, modalidad de formación, municipio y programa académico.

Objetivos Específicos

Recolectar y consolidar la base de datos correspondiente a los graduados de programas técnicos y tecnológicos durante el año 2023 en el departamento del Atlántico, diferenciando los registros del SENA y de las demás instituciones.
Estandarizar y categorizar las variables relevantes (institución, semestre, modalidad de formación, municipio y programa académico) para garantizar la comparabilidad entre los grupos analizados.
Generar visualizaciones descriptivas mediante gráficos de barras, pastel y líneas que permitan identificar patrones y diferencias entre el SENA y otras instituciones.
Elaborar un informe técnico en R Markdown que documente los hallazgos, los cuadros estadísticos y las representaciones gráficas resultantes del análisis comparativo.
Identificar tendencias en la concentración de graduados por modalidad de formación y programa académico que puedan servir de insumo para procesos de planeación, evaluación y toma de decisiones a nivel institucional y regional.

Análisis Estadístico y Comparativo de Graduados 2023 Centro Nacional Colombo Alemán Frente a Otras Instituciones en el Departamento del Atlántico

Graduados por Primer y Segundo Semestre en el Atlántico del Año 2023

El presente análisis cuantitativo corresponde al año 2023 y tiene como propósito caracterizar la distribución de graduados en programas de formación técnica y tecnológica en el departamento del Atlántico. La información se ha segmentado por semestre académico y diferenciada entre el Centro Nacional Colombo Alemán del Servicio Nacional de Aprendizaje - SENA y el conjunto de otras instituciones de educación superior. Esta estructuración permite dimensionar tanto el comportamiento temporal como la magnitud relativa de la oferta educativa certificada.

# GRADUADOS POR SEMESTRE COMPARATIVO
df %>%
  group_by(INSTITUCIÓN, SEMESTRE) %>%                        # Agrupar por SENA/Otras y Semestre
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%  # Sumar graduados
  arrange(INSTITUCIÓN, SEMESTRE) %>%                         # Ordenar la tabla
  mutate(Total_Graduados = scales::number(Total_Graduados, 
                                          big.mark = ".", 
                                          decimal.mark = ",")) %>%  # Separador de miles con punto
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	SEMESTRE	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	PRIMER SEMESTRE	62.613
CENTRO NACIONAL COLOMBO ALEMAN	SEGUNDO SEMESTRE	72.830
OTRAS INSTITUCIONES	PRIMER SEMESTRE	1.321
OTRAS INSTITUCIONES	SEGUNDO SEMESTRE	4.910

La tabla presenta los totales absolutos de graduados registrados durante el año 2023, discriminados por semestre e institución. En el caso del Centro Nacional Colombo Alemán del SENA, se observa un volumen considerablemente superior respecto a las demás instituciones: 62.613 graduados en el primer semestre y 72.830 en el segundo. En contraposición, las otras instituciones reportaron 1.321 graduados en el primer semestre y 4.910 en el segundo. Este comportamiento refleja un incremento semestral de 10.217 graduados en el SENA y de 3.589 en las demás instituciones. En términos comparativos, el Centro Nacional Colombo Alemán concentra la mayor parte de la formación técnica y tecnológica certificada durante el año 2023.

# GRÁFICO: GRADUADOS POR SEMESTRE COMPARATIVO
df %>%
  group_by(INSTITUCIÓN, SEMESTRE) %>%                              # Agrupar por institución y semestre
  summarise(Total = sum(GRADUADOS, na.rm = TRUE), .groups = "drop") %>%  # Sumar graduados y eliminar agrupación
  ggplot(aes(
    x = SEMESTRE,
    y = Total,
    fill = INSTITUCIÓN
  )) +
  geom_col(position = "dodge") +                                   # Barras lado a lado
  geom_text(
    aes(label = scales::number(Total, big.mark = ".", accuracy = 1)),  # Etiquetas con punto como separador de miles
    position = position_dodge(width = 0.9),                        # Alinearlas sobre cada barra
    vjust = -0.3,                                                  # Posición vertical encima
    size = 3                                                       # Tamaño de texto
  ) +
  labs(
    title = "Graduados por Semestre: Centro Colombo Alemán vs. Otras Instituciones",
    x = "Semestre",
    y = "Total de Graduados",
    fill = "Institución"
  ) +
  theme_minimal() +
  scale_y_continuous(labels = scales::number_format(big.mark = ".", accuracy = 1))  # Eje Y con punto como separador de miles

El gráfico de barras complementa la tabla al representar de forma visual la evolución de los graduados en cada semestre de 2023. La diferencia de magnitud entre ambas instituciones es evidente en ambos periodos, con una distancia aún más acentuada durante el segundo semestre. La comparación muestra que el Centro Nacional Colombo Alemán del SENA mantiene un crecimiento sostenido en el número de certificados, mientras que las demás instituciones presentan un volumen relativamente reducido aunque con una tendencia también creciente. Esta visualización facilita la identificación de la brecha persistente entre las instituciones analizadas en cada semestre.

# GRÁFICO DE PASTEL
# Muestra la participación total de SENA vs. Otras Instituciones
df %>%
  group_by(INSTITUCIÓN) %>%                             # Agrupa por institución
  summarise(
    Total = sum(GRADUADOS, na.rm = TRUE),               # Suma total de graduados
    .groups = "drop"
  ) %>%
  mutate(
    Porcentaje = Total / sum(Total),                    # Calcula porcentaje
    Etiqueta = paste0(
      scales::number(Total, big.mark = "."),            # Total con punto como separador de miles
      "\n",
      scales::percent(Porcentaje, accuracy = 0.1, decimal.mark = ",")  # Porcentaje con coma como separador decimal
    )
  ) %>%
  ggplot(aes(
    x = "",                                             # Necesario para geom_col
    y = Total,                                          # Valor total
    fill = INSTITUCIÓN                                  # Color por institución
  )) +
  geom_col(width = 1, color = "white") +                # Barras del pastel
  coord_polar(theta = "y") +                            # Cambiar a pastel
  geom_text(
    aes(
      label = Etiqueta,
      y = cumsum(Total) - Total/2                       # CENTRA la etiqueta dentro del segmento
    ),
    hjust = -0.3,                                       # Mueve las etiquetas hacia la derecha
    color = "white",                                    # Color del texto para que contraste
    size = 4,                                           # Tamaño del texto
    fontface = "bold"                                   # Negrita
  ) +
  labs(
    title = "Participación de Graduados por Institución",
    fill = "Institución"
  ) +
  theme_void()                                          # Quita ejes y fondo

Finalmente, el diagrama de pastel ilustra la participación proporcional acumulada de cada institución en el total de graduados durante 2023. El Centro Nacional Colombo Alemán representa el 95,6% de los egresados, con 135.443 certificados emitidos, frente al 4,4% correspondiente a las demás instituciones, que sumaron 6.231 graduados en el año. Esta distribución confirma la concentración institucional de la formación técnica y tecnológica en el departamento, evidenciando la relevancia estratégica del SENA como principal proveedor de este nivel educativo durante el año 2023 analizado.

# GRÁFICO DE LÍNEAS POR SEMESTRE
# Muestra la evolución entre el Primer y Segundo semestre Comparando SENA y Otras
df %>%
  group_by(INSTITUCIÓN, SEMESTRE) %>%                   # Agrupa por Institución y Semestre
  summarise(
    Total = sum(GRADUADOS, na.rm = TRUE),               # Suma graduados por combinación
    .groups = "drop"                                    # Quita la agrupación después de resumir
  ) %>%
  ggplot(aes(
    x = SEMESTRE,                                       # Eje X: Semestre
    y = Total,                                          # Eje Y: Total de graduados
    group = INSTITUCIÓN,                                # Cada línea representa una institución
    color = INSTITUCIÓN                                 # Color de línea por institución
  )) +
  geom_line(size = 1) +                                 # Dibuja línea
  geom_point(size = 2) +                                # Dibuja puntos en cada semestre
  geom_text(
    aes(label = scales::number(Total, big.mark = ".")), # Etiquetas de datos con punto como separador de miles
    vjust = -0.5,                                       # Posición vertical sobre el punto
    size = 3,                                           # Tamaño de texto
    show.legend = FALSE                                 # Elimina laS leyendaS
  ) +
  scale_y_continuous(
    labels = function(x) scales::number(x, big.mark = ".")  # Eje Y con punto como separador de miles
  ) +
  labs(
    title = "Evolución de Graduados por Semestre",      # Título
    x = "Semestre",                                     # Etiqueta eje X
    y = "Total de Graduados",                           # Etiqueta eje Y
    color = "Institución"                               # Leyenda de colores
  ) +
  theme_minimal()                                       # Tema limpio

Por otro lado, el gráfico de líneas muestra la evolución del total de graduados por semestre durante el año 2023, diferenciando entre el Centro Nacional Colombo Alemán y las demás instituciones del departamento del Atlántico. La línea correspondiente al Centro Nacional Colombo Alemán evidencia un incremento progresivo de 62.613 graduados en el primer semestre a 72.830 en el segundo semestre, lo que representa un crecimiento absoluto de 10.217 certificados. Esta tendencia refleja una dinámica expansiva en la certificación de formación técnica y tecnológica por parte de esta institución durante el periodo analizado.

En contraste, la línea que representa a las otras instituciones muestra un comportamiento también ascendente pero de menor magnitud. Los graduados pasaron de 1.321 en el primer semestre a 4.910 en el segundo semestre, con un incremento de 3.589 graduados. Aunque la diferencia absoluta entre los dos grupos institucionales es considerable, la pendiente positiva en ambos casos sugiere un comportamiento estacional o un aumento sostenido en la certificación de programas técnicos y tecnológicos.

Este gráfico complementa la información presentada en la tabla y en los diagramas previos al ilustrar la evolución temporal de los egresados, permitiendo identificar la magnitud de la brecha entre el Centro Nacional Colombo Alemán y las demás instituciones durante cada semestre del año 2023.

Análisis de Graduados por Municipios del Atlántico Año 2023

La caracterización siguiente corresponde al año 2023 e integra los datos de graduados en programas de formación técnica y tecnológica en el departamento del Atlántico. La información se segmenta por municipio y se clasifica en dos grupos: SENA - Centro Nacional Colombo Alemán y las Instituciones de Educación Superior. Este enfoque permite comparar la distribución territorial y cuantificar la magnitud de egresados por entidad certificadora.

# GRADUADOS POR MUNICIPIO COMPARATIVO
df %>%
  group_by(INSTITUCIÓN, MUNICIPIO) %>%                      # Agrupar por SENA/Otras y Municipio
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%  # Sumar graduados
  arrange(INSTITUCIÓN, desc(Total_Graduados)) %>%               # Ordenar descendente por cantidad
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>% # Añadir numeración de miles con punto
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	MUNICIPIO	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	BARRANQUILLA	125.914
CENTRO NACIONAL COLOMBO ALEMAN	MALAMBO	4.677
CENTRO NACIONAL COLOMBO ALEMAN	SOLEDAD	1.728
CENTRO NACIONAL COLOMBO ALEMAN	PALMAR DE VARELA	623
CENTRO NACIONAL COLOMBO ALEMAN	PUERTO COLOMBIA	476
CENTRO NACIONAL COLOMBO ALEMAN	REPELÓN	476
CENTRO NACIONAL COLOMBO ALEMAN	GALAPA	317
CENTRO NACIONAL COLOMBO ALEMAN	CAMPO DE LA CRUZ	287
CENTRO NACIONAL COLOMBO ALEMAN	LURUACO	253
CENTRO NACIONAL COLOMBO ALEMAN	SABANAGRANDE	137
CENTRO NACIONAL COLOMBO ALEMAN	SABANALARGA	125
CENTRO NACIONAL COLOMBO ALEMAN	MANATÍ	103
CENTRO NACIONAL COLOMBO ALEMAN	BARANOA	100
CENTRO NACIONAL COLOMBO ALEMAN	SANTA LUCÍA	87
CENTRO NACIONAL COLOMBO ALEMAN	PIOJO	50
CENTRO NACIONAL COLOMBO ALEMAN	SANTO TOMÁS	39
CENTRO NACIONAL COLOMBO ALEMAN	PONEDERA	23
CENTRO NACIONAL COLOMBO ALEMAN	TUBARA	16
CENTRO NACIONAL COLOMBO ALEMAN	SUÁN	12
OTRAS INSTITUCIONES	BARRANQUILLA	5.812
OTRAS INSTITUCIONES	PUERTO COLOMBIA	419

La tabla presenta el número total de graduados registrados en cada municipio durante 2023. En el caso del Centro Nacional Colombo Alemán - SENA, destaca una concentración sobresaliente en el municipio de Barranquilla con 125.914 graduados, cifra que equivale a un volumen muy superior al registrado en las demás localidades. En segunda posición se encuentra Malambo con 4.677 graduados, seguido por Soledad con 1.728, Palmar de Varela con 623 y Puerto Colombia con 476. El resto de municipios presentan cifras significativamente más bajas, la mayoría con menos de 500 graduados.

Por parte de las demas instituciones de educación superior, la participación territorial es más limitada. Barranquilla reporta 5.812 graduados, mientras que Puerto Colombia registra 419, siendo los únicos dos municipios con presencia cuantificada en este grupo. Esta diferencia evidencia una concentración institucional y geográfica de la formación técnica y tecnológica certificada principalmente por el Centro Nacional Colombo Alemán.

# GRÁFICO POR MUNICIPIO
df %>%
  group_by(INSTITUCIÓN, MUNICIPIO) %>%  
  # Agrupa los datos por institución y municipio
  summarise(
    Total = sum(GRADUADOS, na.rm = TRUE), 
    # Suma total de graduados por grupo
    .groups = "drop"  
    # Elimina agrupación después del resumen
  ) %>%
  ggplot(aes(
    x = reorder(MUNICIPIO, Total),  
    # Ordena municipios de menor a mayor total dentro de cada faceta
    y = Total,  
    # Altura de la barra según el total
    fill = INSTITUCIÓN  
    # Color de la barra según institución
  )) +
  geom_col() +  
  # Dibuja las barras
  geom_text(
    aes(label = scales::number(Total, big.mark = ".")),  
    # Etiquetas de los totales con separador de miles usando punto
    hjust = -0.1,  
    # Mueve etiquetas un poco a la derecha de la barra
    size = 3  
    # Tamaño de la etiqueta
  ) +
  facet_wrap(~INSTITUCIÓN, scales = "free_y") +  
  # Crea paneles independientes por institución con escalas propias
  coord_flip() +  
  # Gira el gráfico para que las barras queden horizontales
  labs(
    title = "Graduados por Municipio",  
    # Título del gráfico
    x = "Municipio",  
    # Etiqueta del eje X
    y = "Total de Graduados"  
    # Etiqueta del eje Y
  ) +
  theme_minimal() +  
  # Tema visual limpio
  scale_y_continuous(labels = function(x) scales::number(x, big.mark = "."),  
    # Eje Y con separador de miles usando punto
    expand = expansion(mult = c(0, 0.1))  
    # Deja un poco de espacio extra para que quepan las etiquetas
  )

El gráfico de barras segmentado por institución muestra los valores absolutos de graduados por municipio durante el año 2023. En el panel correspondiente al SENA - Centro Nacional Colombo Alemán, Barranquilla registró 125.914 graduados, equivalente al 92,3% del total de esta entidad. Malambo reportó 4.677 graduados (3,4%), Soledad 1.728 (1,3%), Palmar de Varela 623 (0,5%) y Puerto Colombia 476 (0,3%). Los quince municipios restantes presentaron cifras menores, con valores entre 317 graduados (Sabanalarga) y 12 graduados (Suán).

En el panel de las Instituciones de Educación Superior, Barranquilla concentró 5.812 graduados, representando el 93,3% del total de este grupo, mientras que Puerto Colombia registró 419 graduados, equivalente al 6,7%. No se identificaron registros de graduados en otros municipios durante el período analizado.

Cabe resaltar que las Instituciones de Educación Superior tienen su presencia institucional ubicada en Barranquilla, mientras que el SENA - Centro Nacional Colombo Alemán opera a través de nodos que permiten la oferta de formación técnica y tecnológica en diferentes municipios del departamento.

Análisis de Graduados Por Modalidad y Nivel de Formación Año 2023

En 2023, el SENA - Centro Nacional Colombo Alemán certificó un total de 7.184 personas en niveles técnicos (5.338), tecnólogos (1.807) y especialización tecnológica (39). Por su parte, las instituciones de educación superior graduaron 6.231 personas: 3.842 técnicos, 2.044 tecnólogos y 345 en especialización tecnológica. Aunque el volumen total del SENA es superior, las instituciones de educación superior concentraron la mayoría de los graduados en especialización tecnológica, con 89,8% del total (345 de 384). Esto sugiere que mientras el SENA - Centro Nacional Colombo Alemán se enfoca más en formación técnica de base, las instituciones de educación superior apuntan a la consolidación de niveles formativos superiores.

# GRADUADOS POR NIVEL DE FORMACIÓN COMPARATIVO
df %>%
  group_by(INSTITUCIÓN, `NIVEL FORMACIÓN`) %>%              # Agrupar por SENA/Otras y Nivel Formación
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%  # Sumar graduados
  arrange(INSTITUCIÓN, desc(Total_Graduados)) %>%              # Ordenar descendente
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>% # Añadir numeración de miles con punto
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	NIVEL FORMACIÓN	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	CURSO ESPECIAL	124.817
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO	5.338
CENTRO NACIONAL COLOMBO ALEMAN	EVENTO	3.442
CENTRO NACIONAL COLOMBO ALEMAN	TECNÓLOGO	1.807
CENTRO NACIONAL COLOMBO ALEMAN	ESPECIALIZACIÓN TECNOLÓGICA	39
OTRAS INSTITUCIONES	TÉCNICO	3.842
OTRAS INSTITUCIONES	TECNÓLOGO	2.044
OTRAS INSTITUCIONES	ESPECIALIZACIÓN TECNOLÓGICA	345

Durante el primer semestre de 2023, el SENA - Centro Nacional Colombo Alemán certificó 62.613 personas en estos niveles, de las cuales 44.172 (70,5%) fueron en modalidad virtual y 18.441 (29,4%) en presencial. Para el segundo semestre, el total aumentó a 72.830, con un crecimiento de 10.217 graduados, impulsado nuevamente por la modalidad virtual (48.751 personas, el 66,9% del semestre). Las instituciones de educación superior presentaron una distribución inversa: presencialidad dominante en ambos semestres, con un total de 6.168 graduados (98,9%) en esta modalidad, y apenas 63 (1,0%) en modalidad virtual, dispersos de forma equitativa entre semestres.

# SEMESTRE x MODALIDAD COMPARATIVA
df %>%
  group_by(INSTITUCIÓN, SEMESTRE, `MODALIDAD FORMACIÓN`) %>% # Agrupar por SENA/Otras, Semestre, Modalidad
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%   # Sumar graduados
  arrange(INSTITUCIÓN, SEMESTRE, desc(Total_Graduados)) %>%     # Ordenar
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>% # Añadir numeración de miles con punto
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	SEMESTRE	MODALIDAD FORMACIÓN	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	PRIMER SEMESTRE	VIRTUAL	44.172
CENTRO NACIONAL COLOMBO ALEMAN	PRIMER SEMESTRE	PRESENCIAL	18.441
CENTRO NACIONAL COLOMBO ALEMAN	SEGUNDO SEMESTRE	VIRTUAL	48.751
CENTRO NACIONAL COLOMBO ALEMAN	SEGUNDO SEMESTRE	PRESENCIAL	24.079
OTRAS INSTITUCIONES	PRIMER SEMESTRE	PRESENCIAL	1.290
OTRAS INSTITUCIONES	PRIMER SEMESTRE	VIRTUAL	31
OTRAS INSTITUCIONES	SEGUNDO SEMESTRE	PRESENCIAL	4.878
OTRAS INSTITUCIONES	SEGUNDO SEMESTRE	VIRTUAL	32

# FACET WRAP POR MODALIDAD
df %>%
  group_by(INSTITUCIÓN, `MODALIDAD FORMACIÓN`, SEMESTRE) %>%     # Agrupa por institución, modalidad y semestre
  summarise(
    Total = sum(GRADUADOS, na.rm = TRUE),                       # Suma graduados por combinación
    .groups = "drop"                                             # Elimina agrupación después del resumen
  ) %>%
  ggplot(aes(
    x = SEMESTRE,                                                # Eje X: semestre
    y = Total,                                                   # Eje Y: total de graduados
    fill = INSTITUCIÓN                                           # Color según institución
  )) +
  geom_col(position = "dodge") +                                 # Barras lado a lado
  geom_text(
    aes(label = scales::number(Total, big.mark = ".")),          # Etiquetas con separador de miles usando punto
    position = position_dodge(width = 0.9),                      # Ajuste horizontal de las etiquetas
    vjust = -0.3,                                                # Posición vertical sobre la barra
    size = 3                                                     # Tamaño de texto
  ) +
  facet_wrap(~`MODALIDAD FORMACIÓN`) +                           # Un panel por modalidad de formación
  labs(
    title = "Graduados por Semestre y Modalidad",                # Título del gráfico
    x = "Semestre",                                              # Etiqueta eje X
    y = "Total de Graduados",                                    # Etiqueta eje Y
    fill = "Institución"                                         # Etiqueta de la leyenda
  ) +
  theme_minimal() +                                              # Tema visual limpio
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1)            # Gira nombres del eje X en diagonal
  ) +
  scale_y_continuous(labels = scales::number_format(big.mark = "."))  # Eje Y con punto como separador de miles

El gráfico muestra el claro dominio del SENA - Centro Nacional Colombo Alemán en ambas modalidades, especialmente en la virtual, donde concentra más del 99% de los graduados en ese formato en el Atlántico. Las instituciones de educación superior sostienen su operación casi exclusivamente bajo la modalidad presencial. El crecimiento semestral del SENA evidencia una expansión sostenida y planificada de su oferta educativa virtual.

# NIVEL DE FORMACIÓN x MODALIDAD COMPARATIVA
df %>%
  group_by(INSTITUCIÓN, `NIVEL FORMACIÓN`, `MODALIDAD FORMACIÓN`) %>%  # Agrupar
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%        # Sumar
  arrange(INSTITUCIÓN, desc(Total_Graduados)) %>%                      # Ordenar
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>% # Añadir numeración de miles
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	NIVEL FORMACIÓN	MODALIDAD FORMACIÓN	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	CURSO ESPECIAL	VIRTUAL	91.518
CENTRO NACIONAL COLOMBO ALEMAN	CURSO ESPECIAL	PRESENCIAL	33.299
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO	PRESENCIAL	5.210
CENTRO NACIONAL COLOMBO ALEMAN	EVENTO	PRESENCIAL	3.442
CENTRO NACIONAL COLOMBO ALEMAN	TECNÓLOGO	VIRTUAL	1.238
CENTRO NACIONAL COLOMBO ALEMAN	TECNÓLOGO	PRESENCIAL	569
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO	VIRTUAL	128
CENTRO NACIONAL COLOMBO ALEMAN	ESPECIALIZACIÓN TECNOLÓGICA	VIRTUAL	39
OTRAS INSTITUCIONES	TÉCNICO	PRESENCIAL	3.799
OTRAS INSTITUCIONES	TECNÓLOGO	PRESENCIAL	2.024
OTRAS INSTITUCIONES	ESPECIALIZACIÓN TECNOLÓGICA	PRESENCIAL	345
OTRAS INSTITUCIONES	TÉCNICO	VIRTUAL	43
OTRAS INSTITUCIONES	TECNÓLOGO	VIRTUAL	20

Al observar la distribución por modalidad y nivel de formación durante 2023, se evidencia que el SENA - Centro Nacional Colombo Alemán certificó un total de 7.191 personas en programas técnicos, tecnológicos y de especialización tecnológica, de los cuales 1.395 (19,4%) lo hicieron en modalidad virtual y 5.796 (80,6%) en presencial. La presencialidad fue ampliamente dominante en el nivel técnico, con 5.210 graduados (97,6%), mientras que la virtualidad tuvo mayor participación en los niveles de tecnólogo (68,5%) y especialización tecnológica (63%), lo que refleja una estrategia más flexible y adaptativa en los programas de mayor nivel.

En contraste, las instituciones de educación superior certificaron 6.231 personas, con un modelo formativo prácticamente exclusivo en modalidad presencial (6.168 graduados, equivalentes al 99%). La participación en modalidad virtual fue marginal, con solo 63 personas: 43 técnicos y 20 tecnólogos, sin registro alguno en especializaciones tecnológicas. Esta diferencia resalta el papel del SENA como líder en el uso de la virtualidad para ampliar su cobertura, mientras las instituciones de educación superior continúan con una oferta concentrada casi totalmente en lo presencial.

# GRÁFICO DE BARRAS APILADAS POR MODALIDAD
df %>%
  group_by(`MODALIDAD FORMACIÓN`, INSTITUCIÓN) %>%    # Agrupa por modalidad de formación e institución
  summarise(
    Total = sum(GRADUADOS, na.rm = TRUE),            # Suma total de graduados por cada combinación
    .groups = "drop"                                  # Quita agrupación después de resumir
  ) %>%
  ggplot(aes(
    x = `MODALIDAD FORMACIÓN`,                       # Eje X: modalidad de formación
    y = Total,                                       # Eje Y: total de graduados
    fill = INSTITUCIÓN                               # Color según institución
  )) +
  geom_col(position = "stack") +                     # Barras apiladas
  geom_text(
    aes(label = scales::number(Total, big.mark = ".")),  # Etiquetas con separador de miles (punto)
    position = position_stack(vjust = 0.5),              # Ubica etiquetas al centro de cada segmento
    size = 3                                             # Tamaño del texto
  ) +
  labs(
    title = "Graduados por Modalidad de Formación",      # Título del gráfico
    x = "Modalidad de Formación",                        # Etiqueta del eje X
    y = "Total de Graduados",                            # Etiqueta del eje Y
    fill = "Institución"                                 # Leyenda de colores
  ) +
  theme_minimal() +                                      # Tema visual limpio
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1)    # Gira etiquetas del eje X
  ) +
  scale_y_continuous(labels = scales::number_format(big.mark = "."))  # Eje Y con punto como separador de miles

El gráfico destaca que el SENA - Centro Nacional Colombo Alemán lidera en ambos formatos, con fuerte énfasis en lo virtual. En cambio, las instituciones de educación superior presentan una rigidez estructural centrada en la modalidad presencial. En términos comparativos, el SENA certificó el 95,4% de los graduados virtuales en estos niveles (1.395 de 1.458), lo que demuestra su capacidad operativa, infraestructura tecnológica y estrategia de cobertura educativa.

Análisis de Graduados Por Programa Académico

A continuación, se presenta un Top 10 de los programas académicos con mayor número de graduados en los niveles técnico y tecnológico durante el año 2023.

# TOP 10 PROGRAMAS ACADÉMICOS COMPARATIVO
# Filtrar según condición que planteaste
df_filtrado <- df %>%
  filter(
    INSTITUCIÓN != "CENTRO NACIONAL COLOMBO ALEMAN" |  # Si no es el centro, incluir todo
      (
        INSTITUCIÓN == "CENTRO NACIONAL COLOMBO ALEMAN" & 
        `NIVEL FORMACIÓN` %in% c("TÉCNICO", "TECNÓLOGO")   # Si es el centro, solo técnico/tecnólogo
      )
  )

# TOP 10 PROGRAMAS ACADÉMICOS COMPARATIVO
df_filtrado %>%
  group_by(INSTITUCIÓN, `PROGRAMA ACADÉMICO`) %>%                # Agrupar por institución y programa
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE), .groups = "drop_last") %>% # Sumar graduados
  arrange(INSTITUCIÓN, desc(Total_Graduados)) %>%                # Ordenar descendente dentro de cada institución
  group_by(INSTITUCIÓN) %>%                                      # Agrupar otra vez por institución
  slice_max(Total_Graduados, n = 10) %>%                         # Tomar top 10 por institución
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>%  # Formatear números con punto como separador de miles
  knitr::kable()  # aspecto de tabla limpio

INSTITUCIÓN	PROGRAMA ACADÉMICO	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO DE SISTEMAS	681
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN MANTENIMIENTO DE EQUIPOS DE COMPUTO	524
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN ANÁLISIS DE MUESTRAS QUÍMICAS	508
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN PROGRAMACIÓN DE SOFTWARE	459
CENTRO NACIONAL COLOMBO ALEMAN	TECNOLOGÍA EN ANÁLISIS Y DESARROLLO DE SISTEMAS DE INFORMACIÓN	376
CENTRO NACIONAL COLOMBO ALEMAN	TECNOLOGÍA EN GESTIÓN LOGÍSTICA	345
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN INSTALACIÓN DE SISTEMAS ELECTRICOS RESIDENCIALES Y COMERCIALES	336
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN SOLDADURA DE PRODUCTOS METALICOS EN PLATINA	331
CENTRO NACIONAL COLOMBO ALEMAN	TÉCNICO EN DISEÑO E INTEGRACION DE MULTIMEDIA	323
CENTRO NACIONAL COLOMBO ALEMAN	TECNOLOGÍA EN GESTIÓN DE MERCADOS	310
OTRAS INSTITUCIONES	TECNOLOGÍA EN AUTOMATIZACIÓN INDUSTRIAL	843
OTRAS INSTITUCIONES	TECNOLOGÍA EN GESTIÓN LOGÍSTICA	493
OTRAS INSTITUCIONES	TECNOLOGÍA EN REGENCIA DE FARMACIA	466
OTRAS INSTITUCIONES	TECNOLOGÍA EN GUIANZA TURÍSTICA	358
OTRAS INSTITUCIONES	TECNOLOGÍA EN QUÍMICA APLICADA A LA INDUSTRIA	302
OTRAS INSTITUCIONES	TECNOLOGÍA EN GESTIÓN DE LA SEGURIDAD Y SALUD EN EL TRABAJO	207
OTRAS INSTITUCIONES	TÉCNICA PROFESIONAL EN PROCESOS TURÍSTICOS Y HOTELEROS	182
OTRAS INSTITUCIONES	TECNOLOGÍA EN AUTOMATIZACIÓN Y ROBÓTICA INDUSTRIAL	181
OTRAS INSTITUCIONES	TECNOLOGÍA EN GESTIÓN FINANCIERA	178
OTRAS INSTITUCIONES	TECNOLOGÍA EN ASEGURAMIENTO METROLÓGICO INDUSTRIAL	166

Los datos muestran que el SENA - Centro Nacional Colombo Alemán concentró su mayor número de egresados en programas técnicos, siendo los más representativos Técnico en Sistemas (681 graduados), Mantenimiento de Equipos de Cómputo (524) y Análisis de Muestras Químicas (508). Esta tendencia confirma su enfoque práctico y operativo, con alta cobertura en formación de base técnica.

En contraste, las instituciones de educación superior presentan una fuerte orientación hacia programas tecnológicos de mayor especialización, liderando con Tecnología en Automatización Industrial (843 graduados), seguida por Gestión Logística (493) y Regencia de Farmacia (468). La presencia de programas en áreas estratégicas como la industria, salud y turismo indica una oferta más focalizada en sectores con alta demanda de cualificación técnica avanzada en el Atlántico.

Análisis de Graduados por Nombre de Institución

La siguiente tabla presenta la distribución total de graduados por centro educativo en niveles técnico, tecnológico y especialización técnica y tecnológica durante el año 2023.

# GRADUADOS POR CENTRO COMPARATIVO
df %>%
  group_by(INSTITUCIÓN, `NOMBRE CENTRO`) %>%                # Agrupar por SENA/Otras y Centro
  summarise(Total_Graduados = sum(GRADUADOS, na.rm = TRUE)) %>%  # Sumar graduados
  arrange(INSTITUCIÓN, desc(Total_Graduados)) %>%              # Ordenar descendente
  mutate(Total_Graduados = scales::number(Total_Graduados, big.mark = ".")) %>% # Añadir numeración de miles con punto
  knitr::kable()  # Aspecto de la tabla limpio

INSTITUCIÓN	NOMBRE CENTRO	Total_Graduados
CENTRO NACIONAL COLOMBO ALEMAN	CENTRO NACIONAL COLOMBO ALEMAN	135.443
OTRAS INSTITUCIONES	INSTITUCIÓN UNIVERSITARIA DE BARRANQUILLA - IUB	1.554
OTRAS INSTITUCIONES	CORPORACIÓN UNIVERSITARIA AMERICANA	1.480
OTRAS INSTITUCIONES	CORPORACIÓN DE EDUCACIÓN SUPERIOR DEL LITORAL	1.441
OTRAS INSTITUCIONES	ESCUELA NAVAL DE SUBOFICIALES ARC BARRANQUILLA	494
OTRAS INSTITUCIONES	UNIVERSIDAD DEL ATLÁNTICO	419
OTRAS INSTITUCIONES	CORPORACIÓN POLITÉCNICO DE LA COSTA ATLÁNTICA	367
OTRAS INSTITUCIONES	UNIVERSIDAD AUTÓNOMA DEL CARIBE - UNIAUTÓNOMA	150
OTRAS INSTITUCIONES	CORPORACIÓN UNIVERSITARIA DE CIENCIAS EMPRESARIALES, EDUCACIÓN Y SALUD - UNICORSALUD	135
OTRAS INSTITUCIONES	CORPORACIÓN TECNOLÓGICA INDOAMÉRICA	75
OTRAS INSTITUCIONES	CORPORACIÓN UNIVERSITARIA REFORMADA - CUR	49
OTRAS INSTITUCIONES	CORPORACIÓN UNIVERSITARIA EMPRESARIAL DE SALAMANCA	32
OTRAS INSTITUCIONES	CORPORACIÓN UNIVERSITARIA LATINOAMERICANA - CUL	23
OTRAS INSTITUCIONES	UNIVERSIDAD SIMÓN BOLIVAR	12

El SENA - Centro Nacional Colombo Alemán lideró ampliamente la certificación de graduados en el Atlántico con 135.443 personas, cifra que representa una diferencia abismal frente a las instituciones de educación superior, cuyas cifras individuales no superaron los 1.600 graduados por centro.

Las instituciones con mayor volumen de graduación fueron la Institución Universitaria de Barranquilla (1.554 graduados), la Corporación Universitaria Americana (1.480) y la Corporación de Educación Superior del Litoral (1.441). En conjunto, estas tres entidades representan el 69,2% del total de graduados de las instituciones de educación superior listadas.

Este comportamiento reafirma la posición del SENA como el principal actor en formación técnica y tecnológica en el departamento, tanto por su alcance masivo como por su estructura operativa, mientras que las instituciones de educación superior muestran una participación más dispersa y limitada en volumen.

Conclusión

El análisis realizado sobre los graduados de programas técnicos, tecnológicos y de especialización técnica y tecnológica durante el año 2023 en el departamento del Atlántico permite evidenciar diferencias marcadas entre el SENA - Centro Nacional Colombo Alemán y las instituciones de educación superior, tanto en volumen como en modalidad y enfoque formativo.

El SENA - Centro Nacional Colombo Alemán se consolidó como la principal entidad certificadora en estos niveles, con una cobertura ampliamente superior que combina modalidad presencial y virtual, siendo esta última clave en su estrategia de expansión. Su liderazgo es visible no solo en el número total de graduados, sino también en la diversificación de su oferta académica, especialmente en programas técnicos con orientación práctica y de rápida empleabilidad.

Por su parte, las instituciones de educación superior presentan una participación más distribuida y especializada, con énfasis casi exclusivo en la modalidad presencial. Sus programas tecnológicos están orientados a sectores estratégicos como la industria, logística, salud y turismo, lo que muestra una alineación con la demanda laboral, pero con limitaciones en términos de cobertura y flexibilidad modal.

En conjunto, los hallazgos de este informe permiten concluir que, mientras el SENA - Centro Nacional Colombo Alemán responde con eficiencia, volumen y adaptabilidad a los retos de cobertura educativa, las instituciones de educación superior mantienen un enfoque más tradicional y especializado, lo que genera oportunidades complementarias, pero también desafíos de integración y articulación en el sistema regional de formación técnica y tecnológica.

Análisis comparativo entre el SENA - Centro Nacional Colombo Alemán y las demás Instituciones de Educación Superior

TAD-8

Julio 2025