Datos Deserción SENA 2024

Regional Bolívar

Author

Cristian Rivera G.

Fuentes

Descripción

Deserción de la Formación Profesional Integral. Conteos de cupos desertados, para la vigencia en curso (año acumulado), desagregado por programas de formación y nivel para el año 2024.

Georeferenciación Centros de Aprendizaje SENA. Información de longitud y latitud de los centros de Aprendizaje a nivel nacional.

Bibliotecas

Code

library(tidyverse)
library(janitor)
library(forcats)
library(tibble)
library(kableExtra)
library(leaflet)

Datos Deserción

Code

datos <- read_csv(file = "DESERCION_DE_LA_FORMACI_N_PROFESIONAL_INTEGRAL_20240906.csv")

Panorama Nacional

Tasa Deserción

Code

tdesercion <- datos |>
  clean_names() |>
  mutate_if(is.character, as.factor) |> 
  group_by(nombre_centro) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2))
tdesercion

Mapa

Leer datos georeferenciación centro de formación SENA

Code

geosena <- read_csv(file = "Georeferenciaci_n_Centros_de_Aprendizaje_SENA_20250118.csv")

Gráfico

Code

geosena |>
  select(LATITUD, LONGITUD, CENTRO_FORMACION) |>
  unique() |> 
  leaflet() |>
  addTiles() |> 
  addMarkers(
    ~LONGITUD,
    ~LATITUD,  # Usar las columnas de longitud y latitud
    popup = ~paste("<b>", CENTRO_FORMACION, "</b><br>", "Deserción", tdesercion$tasa_desercion, "%")
    ) |>
  setView(lng = -74.2973, lat = 4.5709, zoom = 6)

Lectura de datos

Code

datos <- read_csv(file = "DESERCION_DE_LA_FORMACI_N_PROFESIONAL_INTEGRAL_20240906.csv")

Explorando Datos

Code

glimpse(datos)

Rows: 42,080
Columns: 15
$ CODIGO_REGIONAL               <dbl> 17, 13, 11, 68, 13, 68, 73, 76, 20, 11, …
$ NOMBRE_REGIONAL               <chr> "\"REGIONAL CALDAS\"", "\"REGIONAL BOLIV…
$ CODIGO_CENTRO                 <dbl> 9112, 9304, 9405, 9309, 9304, 9225, 9226…
$ NOMBRE_CENTRO                 <chr> "\"CENTRO PARA LA FORMACION CAFETERA\"",…
$ IDENTIFICADOR_UNICO_FICHA     <dbl> 12721335, 12909270, 12914465, 12907634, …
$ FECHA_INICIO_FICHA            <chr> "\"27/03/2023\"", "\"08/02/2024\"", "\"1…
$ FECHA_TERMINACION_FICHA       <chr> "\"26/06/2025\"", "\"06/03/2024\"", "\"2…
$ CODIGO_PROGRAMA               <chr> "\"723179\"", "\"13410029\"", "\"1211008…
$ VERSION_PROGRAMA              <dbl> 1, 2, 1, 1, 2, 1, 2, 2, 2, 2, 1, 102, 2,…
$ NOMBRE_PROGRAMA_FORMACION     <chr> "\"GESTION AGROEMPRESARIAL\"", "\"ADMINI…
$ NIVEL_FORMACION               <chr> "\"TECNOLOGO\"", "\"CURSO ESPECIAL\"", "…
$ MODALIDAD_FORMACION           <chr> "\"VIRTUAL\"", "\"VIRTUAL\"", "\"PRESENC…
$ TOTAL_APRENDICES_MATRICULADOS <dbl> 31, 80, 25, 80, 32, 34, 26, 30, 34, 35, …
$ DESERTORES_AÑO_ACTUAL         <dbl> 0, 1, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0…
$ PERIODO                       <dbl> 202402, 202402, 202402, 202402, 202402, …

Nombre de Columnas

Code

names(datos)

 [1] "CODIGO_REGIONAL"               "NOMBRE_REGIONAL"              
 [3] "CODIGO_CENTRO"                 "NOMBRE_CENTRO"                
 [5] "IDENTIFICADOR_UNICO_FICHA"     "FECHA_INICIO_FICHA"           
 [7] "FECHA_TERMINACION_FICHA"       "CODIGO_PROGRAMA"              
 [9] "VERSION_PROGRAMA"              "NOMBRE_PROGRAMA_FORMACION"    
[11] "NIVEL_FORMACION"               "MODALIDAD_FORMACION"          
[13] "TOTAL_APRENDICES_MATRICULADOS" "DESERTORES_AÑO_ACTUAL"        
[15] "PERIODO"

Regional Bolívar

Tasa de Deserción Centros de Formación Regional Bolívar

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  kbl(caption = "Tasa de Deserción Centros de Formación Regional Bolívar.") |> 
  kable_classic(full_width = FALSE, html_font = "Cambria")

Tasa de Deserción Centros de Formación Regional Bolívar.
nombre_centro	matriculados	desertores	tasa_desercion
"CENTRO AGROEMPRESARIAL Y MINERO"	18946	259	1.37
"CENTRO DE COMERCIO Y SERVICIOS"	27228	507	1.86
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	8608	35	0.41
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	13386	311	2.32

Grafico, matriculados por centro de formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(nombre_centro, matriculados), y = matriculados))+
  geom_col(fill = "forestgreen")+
  labs(title = "Matriculados por Centro de Formación",
       x = "",
       y = "Matriculados")+
  coord_flip()

Gráfico, tasa de deserción por centro de formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(nombre_centro, tasa_desercion), y = tasa_desercion))+
  geom_col(fill = "forestgreen")+
  labs(title = "Tasa de Deserción por Centro de Formación",
       x = "",
       y = "Tasa de Deserción")+
  coord_flip()

Tasa de Deserción por Nivel de Formación Centros de Formación Regional Bolívar

Code

datos |>
  clean_names() |>
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, nivel_formacion) |>
  reframe(
    matriculados = sum(total_aprendices_matriculados),
    desertores = sum(desertores_ano_actual),
    tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
  ) |>
  kbl(caption = "Tasa de Deserción Centros de Formación Regional Bolívar.") |>
  kable_classic(full_width = FALSE, html_font = "Cambria")

Tasa de Deserción Centros de Formación Regional Bolívar.
nombre_centro	nivel_formacion	matriculados	desertores	tasa_desercion
"CENTRO AGROEMPRESARIAL Y MINERO"	"CURSO ESPECIAL"	10280	172	1.67
"CENTRO AGROEMPRESARIAL Y MINERO"	"OPERARIO"	64	0	0.00
"CENTRO AGROEMPRESARIAL Y MINERO"	"TECNICO"	6603	56	0.85
"CENTRO AGROEMPRESARIAL Y MINERO"	"TECNOLOGO"	1999	31	1.55
"CENTRO DE COMERCIO Y SERVICIOS"	"AUXILIAR"	30	0	0.00
"CENTRO DE COMERCIO Y SERVICIOS"	"CURSO ESPECIAL"	18064	507	2.81
"CENTRO DE COMERCIO Y SERVICIOS"	"OPERARIO"	106	0	0.00
"CENTRO DE COMERCIO Y SERVICIOS"	"TECNICO"	4977	0	0.00
"CENTRO DE COMERCIO Y SERVICIOS"	"TECNOLOGO"	4051	0	0.00
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"CURSO ESPECIAL"	2958	17	0.57
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"OPERARIO"	147	0	0.00
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"TECNICO"	3396	11	0.32
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"TECNOLOGO"	2107	7	0.33
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	"CURSO ESPECIAL"	8264	295	3.57
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	"TECNICO"	3133	10	0.32
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	"TECNOLOGO"	1989	6	0.30

Gráfico, matriculados por nivel de formación y centros de formación

Code

datos |>
  clean_names() |>
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, nivel_formacion) |>
  reframe(
    matriculados = sum(total_aprendices_matriculados),
    desertores = sum(desertores_ano_actual),
    tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
  ) |>
  ggplot(mapping = aes(x = reorder(nivel_formacion, matriculados), y = matriculados)) + 
  labs(title = "Matriculados por Nivel de Formación", 
       x = "Nivel de Formación", 
       y = "Matriculados") +
  geom_col(fill = "cadetblue") +
  coord_flip()+
  facet_wrap(facets = ~nombre_centro, scales = "free")

Gráfico, tasa de deserción por nivel de formación y centros de formación

Code

datos |>
  clean_names() |>
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, nivel_formacion) |>
  reframe(
    matriculados = sum(total_aprendices_matriculados),
    desertores = sum(desertores_ano_actual),
    tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
  ) |>
  ggplot(mapping = aes(x = reorder(nivel_formacion, tasa_desercion), y = tasa_desercion)) + 
  labs(title = "Tasa de Deserción por Nivel de Formación", 
       x = "Nivel de Formación", 
       y = "Tasa de Deserción") +
  geom_col(fill = "cadetblue") +
  coord_flip()+
  facet_wrap(facets = ~nombre_centro, scales = "free")

Tasa de Deserción por Nivel de Formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nivel_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  kbl(caption = "Tasa de Deserción por Nivel de Formación.") |> 
  kable_classic(full_width = FALSE, html_font = "Cambria")

Tasa de Deserción por Nivel de Formación.
nivel_formacion	matriculados	desertores	tasa_desercion
"AUXILIAR"	30	0	0.00
"CURSO ESPECIAL"	39566	991	2.50
"OPERARIO"	317	0	0.00
"TECNICO"	18109	77	0.43
"TECNOLOGO"	10146	44	0.43

Gráfico, Total Matriculados por Nivel de Formación

Code

datos |>
  clean_names() |>
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, nivel_formacion) |>
  reframe(
    matriculados = sum(total_aprendices_matriculados),
    desertores = sum(desertores_ano_actual),
    tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
  ) |>
  ggplot(mapping = aes(x = reorder(nivel_formacion, matriculados), y = matriculados)) + 
  labs(title = "Matriculados por Nivel de Formación", 
       x = "Nivel de Formación", 
       y = "Matriculados") +
  geom_col(fill = "cadetblue") +
  coord_flip()

Gráfico, tasa de deserción general por nivel de formación

Code

datos |>
  clean_names() |>
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, nivel_formacion) |>
  reframe(
    matriculados = sum(total_aprendices_matriculados),
    desertores = sum(desertores_ano_actual),
    tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
  ) |>
  ggplot(mapping = aes(x = reorder(nivel_formacion, tasa_desercion), y = tasa_desercion)) + 
  labs(title = "Tasa de Deserción por Nivel de Formación", 
       x = "Nivel de Formación", 
       y = "Tasa de Deserción") +
  geom_col(fill = "cadetblue") +
  coord_flip()

Tasa de Deserción General por Modalidad de Formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  kbl(caption = "Tasa de Deserción por Modalidad de Formación.") |> 
  kable_classic(full_width = FALSE, html_font = "Cambria")

Tasa de Deserción por Modalidad de Formación.
modalidad_formacion	matriculados	desertores	tasa_desercion
"A DISTANCIA"	86	0	0.00
"PRESENCIAL"	41330	541	1.31
"VIRTUAL"	26752	571	2.13

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |>
  ggplot(mapping = aes(x = reorder(modalidad_formacion, tasa_desercion), y = tasa_desercion)) + 
  labs(title = "Tasa de Deserción por Modalidad de Formación", 
       x = "Modalidad de Formación", 
       y = "Tasa de Deserción") +
  geom_col(fill = "cadetblue") +
  coord_flip()

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |>
  ggplot(mapping = aes(x = reorder(modalidad_formacion, matriculados), y = matriculados)) + 
  labs(title = "Matriculados por Modalidad de Formación", 
       x = "Modalidad de Formación", 
       y = "Matriculados") +
  geom_col(fill = "cadetblue") +
  coord_flip()

Tasa de Deserción por Modalidad de Formación y Centro de Formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  kbl(caption = "Tasa de Deserción por Modalidad de Formación.") |> 
  kable_classic(full_width = FALSE, html_font = "Cambria")

Tasa de Deserción por Modalidad de Formación.
nombre_centro	modalidad_formacion	matriculados	desertores	tasa_desercion
"CENTRO AGROEMPRESARIAL Y MINERO"	"PRESENCIAL"	10744	94	0.87
"CENTRO AGROEMPRESARIAL Y MINERO"	"VIRTUAL"	8202	165	2.01
"CENTRO DE COMERCIO Y SERVICIOS"	"A DISTANCIA"	86	0	0.00
"CENTRO DE COMERCIO Y SERVICIOS"	"PRESENCIAL"	13707	171	1.25
"CENTRO DE COMERCIO Y SERVICIOS"	"VIRTUAL"	13435	336	2.50
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"PRESENCIAL"	7352	21	0.29
"CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO"	"VIRTUAL"	1256	14	1.11
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	"PRESENCIAL"	9527	255	2.68
"CENTRO PARA LA INDUSTRIA PETROQUIMICA"	"VIRTUAL"	3859	56	1.45

Tasa de Deserción por Modalidad de Formación en los Centros de Formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(modalidad_formacion, tasa_desercion), y = tasa_desercion)) + 
  labs(title = "Tasa de Deserción por Modalidad de Formación", 
       x = "Modalidad de Formación", 
       y = "Tasa de Deserción") +
  geom_col(fill = "cadetblue") +
  coord_flip()+
  facet_wrap(facets = ~nombre_centro, scales = "free")

Matriculados por Modalidad de Formación en los Centros de Formación

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(modalidad_formacion, matriculados), y = matriculados)) + 
  labs(title = "Matriculados por Modalidad de Formación", 
       x = "Modalidad de Formación", 
       y = "Matriculados") +
  geom_col(fill = "cadetblue") +
  coord_flip()+
  facet_wrap(facets = ~nombre_centro, scales = "free")

Gráfico, matriculados por modalidad Stack.

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(nombre_centro, matriculados), y = matriculados, fill = modalidad_formacion)) + 
  labs(title = "Matriculados", 
       x = "Centro de Formación", 
       y = "Matriculados") +
  geom_col()+ 
  coord_flip()

Gráfico, desertores por modalidad Stack.

Code

datos |>
  clean_names() |> 
  filter(codigo_regional == 13) |>
  mutate_if(is.character, as.factor) |>
  group_by(nombre_centro, modalidad_formacion) |>
  reframe(matriculados = sum(total_aprendices_matriculados),
          desertores = sum(desertores_ano_actual),
          tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |> 
  ggplot(mapping = aes(x = reorder(nombre_centro, desertores), y = desertores, fill = modalidad_formacion)) + 
  labs(title = "Desertores", 
       x = "Centro de Formación", 
       y = "Desertores") +
  geom_col()+ 
  coord_flip()