Code
library(tidyverse)
library(janitor)
library(forcats)
library(tibble)
library(kableExtra)
library(leaflet)Panorama Nacional
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.
library(tidyverse)
library(janitor)
library(forcats)
library(tibble)
library(kableExtra)
library(leaflet)datos <- read_csv(file = "DESERCION_DE_LA_FORMACI_N_PROFESIONAL_INTEGRAL_20240906.csv")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, …
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"
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))
tdeserciongeosena <- read_csv(file = "Georeferenciaci_n_Centros_de_Aprendizaje_SENA_20250118.csv")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)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)) |>
kbl(caption = "Tasa de Deserción Centros de Formacións.") |>
kable_classic(full_width = FALSE, html_font = "Cambria")| nombre_centro | matriculados | desertores | tasa_desercion |
|---|---|---|---|
| "CENTRO ACUICOLA Y AGROINDUSTRIAL DE GAIRA" | 6626 | 66 | 1.00 |
| "CENTRO AGROECOLOGICO Y EMPRESARIAL" | 9399 | 99 | 1.05 |
| "CENTRO AGROEMPRESARIAL Y ACUICOLA" | 6118 | 19 | 0.31 |
| "CENTRO AGROEMPRESARIAL Y DESARROLLO PECUARIO DEL HUILA" | 7458 | 584 | 7.83 |
| "CENTRO AGROEMPRESARIAL Y MINERO" | 18946 | 259 | 1.37 |
| "CENTRO AGROEMPRESARIAL Y TURISTICO DE LOS ANDES" | 9016 | 492 | 5.46 |
| "CENTRO AGROEMPRESARIAL" | 7136 | 93 | 1.30 |
| "CENTRO AGROFORESTAL Y ACUICOLA ARAPAIMA" | 12140 | 191 | 1.57 |
| "CENTRO AGROINDUSTRIAL DEL META" | 6676 | 149 | 2.23 |
| "CENTRO AGROINDUSTRIAL Y FORTALECIMIENTO EMPRESARIAL DE CASANARE" | 11276 | 274 | 2.43 |
| "CENTRO AGROINDUSTRIAL Y PESQUERO DE LA COSTA PACIFICA" | 5307 | 36 | 0.68 |
| "CENTRO AGROINDUSTRIAL" | 18348 | 360 | 1.96 |
| "CENTRO AGROPECUARIO DE BUGA" | 13450 | 319 | 2.37 |
| "CENTRO AGROPECUARIO LA GRANJA" | 29911 | 696 | 2.33 |
| "CENTRO AGROPECUARIO Y DE BIOTECNOLOGIA EL PORVENIR" | 16732 | 980 | 5.86 |
| "CENTRO AGROPECUARIO Y DE SERVICIOS AMBIENTALES JIRI - JIRIMO" | 361 | 49 | 13.57 |
| "CENTRO AGROPECUARIO" | 10607 | 405 | 3.82 |
| "CENTRO AGROTURISTICO" | 11340 | 127 | 1.12 |
| "CENTRO AMBIENTAL Y ECOTURISTICO DEL NORORIENTE AMAZONICO" | 1344 | 15 | 1.12 |
| "CENTRO ATENCION SECTOR AGROPECUARIO" | 22466 | 613 | 2.73 |
| "CENTRO BIOTECNOLOGICO DEL CARIBE" | 10930 | 347 | 3.17 |
| "CENTRO DE AUTOMATIZACION INDUSTRIAL" | 4703 | 136 | 2.89 |
| "CENTRO DE BIOTECNOLOGIA AGROPECUARIA" | 18418 | 257 | 1.40 |
| "CENTRO DE BIOTECNOLOGIA INDUSTRIAL" | 13268 | 200 | 1.51 |
| "CENTRO DE COMERCIO Y SERVICIOS" | 130266 | 9807 | 7.53 |
| "CENTRO DE COMERCIO Y TURISMO" | 18872 | 386 | 2.05 |
| "CENTRO DE COMERCIO, INDUSTRIA Y TURISMO DE CORDOBA" | 17012 | 487 | 2.86 |
| "CENTRO DE COMERCIO" | 11322 | 389 | 3.44 |
| "CENTRO DE DESARROLLO AGROEMPRESARIAL Y TURISTICO DEL HUILA" | 7158 | 91 | 1.27 |
| "CENTRO DE DESARROLLO AGROEMPRESARIAL" | 20207 | 644 | 3.19 |
| "CENTRO DE DESARROLLO AGROINDUSTRIAL Y EMPRESARIAL" | 11640 | 126 | 1.08 |
| "CENTRO DE DESARROLLO AGROINDUSTRIAL, TURISTICO Y TECNOLOGICO DEL GUAVIARE" | 4088 | 72 | 1.76 |
| "CENTRO DE DESARROLLO AGROPECUARIO Y AGROINDUSTRIAL" | 9043 | 404 | 4.47 |
| "CENTRO DE DISEÑO E INNOVACION TECNOLOGICA INDUSTRIAL" | 12881 | 821 | 6.37 |
| "CENTRO DE DISEÑO TECNOLOGICO INDUSTRIAL" | 8261 | 1262 | 15.28 |
| "CENTRO DE DISEÑO Y METROLOGIA" | 5869 | 540 | 9.20 |
| "CENTRO DE ELECTRICIDAD Y AUTOMATIZACION INDUSTRIAL - CEAI" | 14398 | 411 | 2.85 |
| "CENTRO DE ELECTRICIDAD, ELECTRONICA Y TELECOMUNICACIONES" | 13625 | 333 | 2.44 |
| "CENTRO DE FORMACION AGROINDUSTRIAL" | 6977 | 112 | 1.61 |
| "CENTRO DE FORMACION DE TALENTO HUMANO EN SALUD" | 8092 | 335 | 4.14 |
| "CENTRO DE FORMACION EN ACTIVIDAD FISICA Y CULTURA" | 9202 | 168 | 1.83 |
| "CENTRO DE FORMACION EN DISEÑO, CONFECCION Y MODA." | 5304 | 198 | 3.73 |
| "CENTRO DE FORMACION MINERO AMBIENTAL" | 4731 | 110 | 2.33 |
| "CENTRO DE FORMACION PARA EL DESARROLLO RURAL Y MINERO" | 20459 | 458 | 2.24 |
| "CENTRO DE FORMACION TURISTICA GENTE DE MAR Y DE SERVICIOS" | 42787 | 229 | 0.54 |
| "CENTRO DE GESTION ADMINISTRATIVA Y FORTALECIMIENTO EMPRESARIAL" | 13891 | 515 | 3.71 |
| "CENTRO DE GESTION ADMINISTRATIVA" | 19035 | 210 | 1.10 |
| "CENTRO DE GESTION AGROEMPRESARIAL DEL ORIENTE" | 7867 | 269 | 3.42 |
| "CENTRO DE GESTION DE MERCADOS, LOGISTICA Y TECNOLOGIAS DE LA INFORMACION" | 21514 | 489 | 2.27 |
| "CENTRO DE GESTION INDUSTRIAL" | 7831 | 972 | 12.41 |
| "CENTRO DE GESTION TECNOLOGICA DE SERVICIOS" | 14658 | 286 | 1.95 |
| "CENTRO DE GESTION Y DESARROLLO AGROINDUSTRIAL DE ARAUCA" | 4767 | 103 | 2.16 |
| "CENTRO DE GESTION Y DESARROLLO SOSTENIBLE SURCOLOMBIANO" | 9003 | 123 | 1.37 |
| "CENTRO DE INDUSTRIA Y CONSTRUCCION" | 36512 | 1074 | 2.94 |
| "CENTRO DE INDUSTRIA Y SERVICIOS DEL META" | 10962 | 668 | 6.09 |
| "CENTRO DE LA CONSTRUCCION" | 5855 | 99 | 1.69 |
| "CENTRO DE LA INDUSTRIA, LA EMPRESA Y LOS SERVICIOS" | 38260 | 1038 | 2.71 |
| "CENTRO DE LA INNOVACION, LA AGROINDUSTRIA Y LA AVIACION" | 12112 | 180 | 1.49 |
| "CENTRO DE LA INNOVACION, LA TECNOLOGIA Y LOS SERVICIOS" | 13608 | 174 | 1.28 |
| "CENTRO DE LA TECNOLOGIA DEL DISEÑO Y LA PRODUCTIVIDAD EMPRESARIAL" | 13605 | 742 | 5.45 |
| "CENTRO DE LOGISTICA Y PROMOCION ECOTURISTICA DEL MAGDALENA" | 13083 | 298 | 2.28 |
| "CENTRO DE LOS RECURSOS NATURALES RENOVABLES - LA SALADA" | 6923 | 158 | 2.28 |
| "CENTRO DE MANUFACTURA EN TEXTILES Y CUERO" | 9391 | 512 | 5.45 |
| "CENTRO DE MATERIALES Y ENSAYOS" | 14428 | 2323 | 16.10 |
| "CENTRO DE OPERACION Y MANTENIMIENTO MINERO" | 16839 | 268 | 1.59 |
| "CENTRO DE PROCESOS INDUSTRIALES Y CONSTRUCCION" | 4941 | 295 | 5.97 |
| "CENTRO DE PRODUCCION Y TRANSFORMACION AGROINDUSTRIAL DE LA ORINOQUIA" | 2008 | 11 | 0.55 |
| "CENTRO DE RECURSOS NATURALES, INDUSTRIA Y BIODIVERSIDAD" | 5345 | 63 | 1.18 |
| "CENTRO DE SERVICIOS DE SALUD" | 11857 | 607 | 5.12 |
| "CENTRO DE SERVICIOS EMPRESARIALES Y TURISTICOS" | 13130 | 791 | 6.02 |
| "CENTRO DE SERVICIOS FINANCIEROS" | 31573 | 351 | 1.11 |
| "CENTRO DE SERVICIOS Y GESTION EMPRESARIAL" | 22923 | 1074 | 4.69 |
| "CENTRO DE TECNOLOGIA DE LA MANUFACTURA AVANZADA." | 11440 | 496 | 4.34 |
| "CENTRO DE TECNOLOGIAS AGROINDUSTRIALES" | 10981 | 127 | 1.16 |
| "CENTRO DE TECNOLOGIAS DEL TRANSPORTE" | 6928 | 286 | 4.13 |
| "CENTRO DE TECNOLOGIAS PARA LA CONSTRUCCION Y LA MADERA" | 9807 | 553 | 5.64 |
| "CENTRO DE TELEINFORMATICA Y PRODUCCION INDUSTRIAL" | 14641 | 181 | 1.24 |
| "CENTRO DEL DISEÑO Y MANUFACTURA DEL CUERO" | 8088 | 562 | 6.95 |
| "CENTRO INDUSTRIAL DE MANTENIMIENTO INTEGRAL" | 9653 | 295 | 3.06 |
| "CENTRO INDUSTRIAL DE MANTENIMIENTO Y MANUFACTURA" | 12231 | 1029 | 8.41 |
| "CENTRO INDUSTRIAL DEL DISEÑO Y LA MANUFACTURA" | 12464 | 1475 | 11.83 |
| "CENTRO INDUSTRIAL Y DE AVIACION" | 16316 | 235 | 1.44 |
| "CENTRO INDUSTRIAL Y DE DESARROLLO EMPRESARIAL DE SOACHA" | 22953 | 592 | 2.58 |
| "CENTRO INDUSTRIAL Y DE ENERGIAS ALTERNATIVAS" | 6753 | 121 | 1.79 |
| "CENTRO INDUSTRIAL Y DEL DESARROLLO TECNOLOGICO" | 9483 | 703 | 7.41 |
| "CENTRO INTERNACIONAL DE PRODUCCION LIMPIA - LOPE" | 13514 | 173 | 1.28 |
| "CENTRO INTERNACIONAL NAUTICO, FLUVIAL Y PORTUARIO" | 8608 | 35 | 0.41 |
| "CENTRO LATINOAMERICANO DE ESPECIES MENORES" | 11764 | 219 | 1.86 |
| "CENTRO METALMECANICO" | 6586 | 143 | 2.17 |
| "CENTRO MINERO" | 3359 | 14 | 0.42 |
| "CENTRO NACIONAL COLOMBO ALEMAN" | 31917 | 866 | 2.71 |
| "CENTRO NACIONAL DE ASISTENCIA TECNICA A LA INDUSTRIA - ASTIN" | 5702 | 632 | 11.08 |
| "CENTRO NACIONAL DE HOTELERIA, TURISMO Y ALIMENTOS" | 12554 | 195 | 1.55 |
| "CENTRO NAUTICO PESQUERO DE BUENAVENTURA" | 7106 | 42 | 0.59 |
| "CENTRO PARA EL DESARROLLO AGROECOLOGICO Y AGROINDUSTRIAL" | 19166 | 272 | 1.42 |
| "CENTRO PARA EL DESARROLLO DEL HABITAT Y LA CONSTRUCCION" | 9890 | 382 | 3.86 |
| "CENTRO PARA EL DESARROLLO TECNOLOGICO DE LA CONSTRUCCION Y LA INDUSTRIA" | 10844 | 354 | 3.26 |
| "CENTRO PARA LA BIODIVERSIDAD Y EL TURISMO DEL AMAZONAS" | 3980 | 749 | 18.82 |
| "CENTRO PARA LA FORMACION CAFETERA" | 4375 | 81 | 1.85 |
| "CENTRO PARA LA INDUSTRIA DE LA COMUNICACION GRAFICA" | 9512 | 985 | 10.36 |
| "CENTRO PARA LA INDUSTRIA PETROQUIMICA" | 13386 | 311 | 2.32 |
| "CENTRO PECUARIO Y AGROEMPRESARIAL" | 5114 | 130 | 2.54 |
| "CENTRO SUR COLOMBIANO DE LOGISTICA INTERNACIONAL" | 5333 | 27 | 0.51 |
| "CENTRO TECNOLOGICO DE LA AMAZONIA" | 12835 | 181 | 1.41 |
| "CENTRO TECNOLOGICO DEL MOBILIARIO" | 9763 | 207 | 2.12 |
| "CENTRO TEXTIL Y DE GESTION INDUSTRIAL" | 14267 | 299 | 2.10 |
| "COMPLEJO TECNOLOGICO AGROINDUSTRIAL, PECUARIO Y TURISTICO" | 17099 | 826 | 4.83 |
| "COMPLEJO TECNOLOGICO MINERO AGROEMPRESARIAL" | 9657 | 210 | 2.17 |
| "COMPLEJO TECNOLOGICO PARA LA GESTION AGROEMPRESARIAL" | 7060 | 706 | 10.00 |
| "COMPLEJO TECNOLOGICO, TURISTICO Y AGROINDUSTRIAL DEL OCCIDENTE ANTIOQUEÑO" | 5984 | 43 | 0.72 |
datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional) |>
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 Regional.") |>
kable_classic(full_width = FALSE, html_font = "Cambria")| nombre_regional | matriculados | desertores | tasa_desercion |
|---|---|---|---|
| "REGIONAL AMAZONAS" | 3980 | 749 | 18.82 |
| "REGIONAL ANTIOQUIA" | 168420 | 6447 | 3.83 |
| "REGIONAL ARAUCA" | 4767 | 103 | 2.16 |
| "REGIONAL ATLANTICO" | 110853 | 7563 | 6.82 |
| "REGIONAL BOLIVAR" | 68168 | 1112 | 1.63 |
| "REGIONAL BOYACA" | 38524 | 1962 | 5.09 |
| "REGIONAL CALDAS" | 24109 | 1125 | 4.67 |
| "REGIONAL CAQUETA" | 12835 | 181 | 1.41 |
| "REGIONAL CASANARE" | 11276 | 274 | 2.43 |
| "REGIONAL CAUCA" | 39395 | 1041 | 2.64 |
| "REGIONAL CESAR" | 34905 | 708 | 2.03 |
| "REGIONAL CHOCO" | 5345 | 63 | 1.18 |
| "REGIONAL CORDOBA" | 33744 | 1467 | 4.35 |
| "REGIONAL CUNDINAMARCA" | 96222 | 2460 | 2.56 |
| "REGIONAL DISTRITO CAPITAL" | 185947 | 8395 | 4.51 |
| "REGIONAL GUAINIA" | 1344 | 15 | 1.12 |
| "REGIONAL GUAJIRA" | 12871 | 140 | 1.09 |
| "REGIONAL GUAVIARE" | 4088 | 72 | 1.76 |
| "REGIONAL HUILA" | 44884 | 1053 | 2.35 |
| "REGIONAL MAGDALENA" | 19709 | 364 | 1.85 |
| "REGIONAL META" | 17638 | 817 | 4.63 |
| "REGIONAL NARIÑO" | 24154 | 236 | 0.98 |
| "REGIONAL NORTE DE SANTANDER" | 44431 | 1353 | 3.05 |
| "REGIONAL PUTUMAYO" | 12140 | 191 | 1.57 |
| "REGIONAL QUINDIO" | 48064 | 1100 | 2.29 |
| "REGIONAL RISARALDA" | 42613 | 2655 | 6.23 |
| "REGIONAL SAN ANDRES" | 42787 | 229 | 0.54 |
| "REGIONAL SANTANDER" | 82487 | 4352 | 5.28 |
| "REGIONAL SUCRE" | 13608 | 174 | 1.28 |
| "REGIONAL TOLIMA" | 90084 | 2521 | 2.80 |
| "REGIONAL VALLE" | 105443 | 3597 | 3.41 |
| "REGIONAL VAUPES" | 361 | 49 | 13.57 |
| "REGIONAL VICHADA" | 2008 | 11 | 0.55 |
datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional) |>
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_regional, matriculados), y = matriculados)) +
labs(title = "Matriculados por Regional",
x = "Centro de Formación",
y = "Matriculados") +
geom_col(fill = "forestgreen")+
coord_flip()datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional) |>
reframe(matriculados = sum(total_aprendices_matriculados),
desertores = sum(desertores_ano_actual),
tasa_desercion = round((desertores/matriculados)*100, digits = 2)) |>
ggplot(mapping = aes(x = fct_reorder(nombre_regional, desertores), y = desertores)) +
labs(title = "Desertores por Regional",
x = "Centro de Formación",
y = "Desertores") +
geom_col(fill = "forestgreen")+
coord_flip()datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional) |>
reframe(
matriculados = sum(total_aprendices_matriculados),
desertores = sum(desertores_ano_actual),
tasa_desercion = round((desertores / matriculados) * 100, digits = 2)
) |>
ggplot(mapping = aes(x = fct_reorder(nombre_regional, tasa_desercion),
y = tasa_desercion)) +
labs(title = "Tasa de Deserción por Regional", x = "Centro de Formación",
y = "Tasa de Deserción") +
geom_col(fill = "forestgreen") +
coord_flip()datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional, 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")| nombre_regional | nivel_formacion | matriculados | desertores | tasa_desercion |
|---|---|---|---|---|
| "REGIONAL AMAZONAS" | "AUXILIAR" | 48 | 0 | 0.00 |
| "REGIONAL AMAZONAS" | "CURSO ESPECIAL" | 2381 | 679 | 28.52 |
| "REGIONAL AMAZONAS" | "EVENTO" | 48 | 0 | 0.00 |
| "REGIONAL AMAZONAS" | "OPERARIO" | 62 | 21 | 33.87 |
| "REGIONAL AMAZONAS" | "TECNICO" | 1182 | 47 | 3.98 |
| "REGIONAL AMAZONAS" | "TECNOLOGO" | 259 | 2 | 0.77 |
| "REGIONAL ANTIOQUIA" | "AUXILIAR" | 219 | 5 | 2.28 |
| "REGIONAL ANTIOQUIA" | "CURSO ESPECIAL" | 77826 | 3776 | 4.85 |
| "REGIONAL ANTIOQUIA" | "EVENTO" | 438 | 5 | 1.14 |
| "REGIONAL ANTIOQUIA" | "OPERARIO" | 1529 | 54 | 3.53 |
| "REGIONAL ANTIOQUIA" | "TECNICO" | 46741 | 1143 | 2.45 |
| "REGIONAL ANTIOQUIA" | "TECNOLOGO" | 41667 | 1464 | 3.51 |
| "REGIONAL ARAUCA" | "AUXILIAR" | 72 | 6 | 8.33 |
| "REGIONAL ARAUCA" | "CURSO ESPECIAL" | 2792 | 58 | 2.08 |
| "REGIONAL ARAUCA" | "EVENTO" | 18 | 0 | 0.00 |
| "REGIONAL ARAUCA" | "OPERARIO" | 65 | 6 | 9.23 |
| "REGIONAL ARAUCA" | "TECNICO" | 1451 | 26 | 1.79 |
| "REGIONAL ARAUCA" | "TECNOLOGO" | 369 | 7 | 1.90 |
| "REGIONAL ATLANTICO" | "AUXILIAR" | 197 | 5 | 2.54 |
| "REGIONAL ATLANTICO" | "CURSO ESPECIAL" | 61963 | 6531 | 10.54 |
| "REGIONAL ATLANTICO" | "EVENTO" | 493 | 65 | 13.18 |
| "REGIONAL ATLANTICO" | "OPERARIO" | 422 | 3 | 0.71 |
| "REGIONAL ATLANTICO" | "PROFUNDIZACION TECNICA" | 32 | 0 | 0.00 |
| "REGIONAL ATLANTICO" | "TECNICO" | 30224 | 564 | 1.87 |
| "REGIONAL ATLANTICO" | "TECNOLOGO" | 17522 | 395 | 2.25 |
| "REGIONAL BOLIVAR" | "AUXILIAR" | 30 | 0 | 0.00 |
| "REGIONAL BOLIVAR" | "CURSO ESPECIAL" | 39566 | 991 | 2.50 |
| "REGIONAL BOLIVAR" | "OPERARIO" | 317 | 0 | 0.00 |
| "REGIONAL BOLIVAR" | "TECNICO" | 18109 | 77 | 0.43 |
| "REGIONAL BOLIVAR" | "TECNOLOGO" | 10146 | 44 | 0.43 |
| "REGIONAL BOYACA" | "AUXILIAR" | 61 | 0 | 0.00 |
| "REGIONAL BOYACA" | "CURSO ESPECIAL" | 16636 | 1720 | 10.34 |
| "REGIONAL BOYACA" | "EVENTO" | 85 | 0 | 0.00 |
| "REGIONAL BOYACA" | "OPERARIO" | 458 | 0 | 0.00 |
| "REGIONAL BOYACA" | "TECNICO" | 13603 | 151 | 1.11 |
| "REGIONAL BOYACA" | "TECNOLOGO" | 7681 | 91 | 1.18 |
| "REGIONAL CALDAS" | "AUXILIAR" | 40 | 1 | 2.50 |
| "REGIONAL CALDAS" | "CURSO ESPECIAL" | 12268 | 920 | 7.50 |
| "REGIONAL CALDAS" | "EVENTO" | 455 | 76 | 16.70 |
| "REGIONAL CALDAS" | "OPERARIO" | 93 | 0 | 0.00 |
| "REGIONAL CALDAS" | "TECNICO" | 7125 | 82 | 1.15 |
| "REGIONAL CALDAS" | "TECNOLOGO" | 4128 | 46 | 1.11 |
| "REGIONAL CAQUETA" | "CURSO ESPECIAL" | 6135 | 142 | 2.31 |
| "REGIONAL CAQUETA" | "OPERARIO" | 20 | 0 | 0.00 |
| "REGIONAL CAQUETA" | "TECNICO" | 6031 | 36 | 0.60 |
| "REGIONAL CAQUETA" | "TECNOLOGO" | 649 | 3 | 0.46 |
| "REGIONAL CASANARE" | "AUXILIAR" | 19 | 0 | 0.00 |
| "REGIONAL CASANARE" | "CURSO ESPECIAL" | 3589 | 66 | 1.84 |
| "REGIONAL CASANARE" | "OPERARIO" | 65 | 0 | 0.00 |
| "REGIONAL CASANARE" | "TECNICO" | 6317 | 159 | 2.52 |
| "REGIONAL CASANARE" | "TECNOLOGO" | 1286 | 49 | 3.81 |
| "REGIONAL CAUCA" | "AUXILIAR" | 44 | 1 | 2.27 |
| "REGIONAL CAUCA" | "CURSO ESPECIAL" | 17683 | 605 | 3.42 |
| "REGIONAL CAUCA" | "EVENTO" | 28 | 11 | 39.29 |
| "REGIONAL CAUCA" | "OPERARIO" | 162 | 1 | 0.62 |
| "REGIONAL CAUCA" | "TECNICO" | 12994 | 173 | 1.33 |
| "REGIONAL CAUCA" | "TECNOLOGO" | 8484 | 250 | 2.95 |
| "REGIONAL CESAR" | "AUXILIAR" | 195 | 6 | 3.08 |
| "REGIONAL CESAR" | "CURSO ESPECIAL" | 13809 | 337 | 2.44 |
| "REGIONAL CESAR" | "EVENTO" | 72 | 0 | 0.00 |
| "REGIONAL CESAR" | "OPERARIO" | 136 | 0 | 0.00 |
| "REGIONAL CESAR" | "TECNICO" | 12712 | 217 | 1.71 |
| "REGIONAL CESAR" | "TECNOLOGO" | 7981 | 148 | 1.85 |
| "REGIONAL CHOCO" | "CURSO ESPECIAL" | 2136 | 25 | 1.17 |
| "REGIONAL CHOCO" | "OPERARIO" | 37 | 0 | 0.00 |
| "REGIONAL CHOCO" | "TECNICO" | 2861 | 34 | 1.19 |
| "REGIONAL CHOCO" | "TECNOLOGO" | 311 | 4 | 1.29 |
| "REGIONAL CORDOBA" | "AUXILIAR" | 38 | 6 | 15.79 |
| "REGIONAL CORDOBA" | "CURSO ESPECIAL" | 13472 | 1400 | 10.39 |
| "REGIONAL CORDOBA" | "OPERARIO" | 242 | 0 | 0.00 |
| "REGIONAL CORDOBA" | "PROFUNDIZACION TECNICA" | 29 | 0 | 0.00 |
| "REGIONAL CORDOBA" | "TECNICO" | 17072 | 53 | 0.31 |
| "REGIONAL CORDOBA" | "TECNOLOGO" | 2891 | 8 | 0.28 |
| "REGIONAL CUNDINAMARCA" | "AUXILIAR" | 153 | 10 | 6.54 |
| "REGIONAL CUNDINAMARCA" | "CURSO ESPECIAL" | 41344 | 1100 | 2.66 |
| "REGIONAL CUNDINAMARCA" | "EVENTO" | 87 | 62 | 71.26 |
| "REGIONAL CUNDINAMARCA" | "OPERARIO" | 425 | 16 | 3.76 |
| "REGIONAL CUNDINAMARCA" | "TECNICO" | 35743 | 718 | 2.01 |
| "REGIONAL CUNDINAMARCA" | "TECNOLOGO" | 18470 | 554 | 3.00 |
| "REGIONAL DISTRITO CAPITAL" | "AUXILIAR" | 401 | 0 | 0.00 |
| "REGIONAL DISTRITO CAPITAL" | "CURSO ESPECIAL" | 78795 | 6645 | 8.43 |
| "REGIONAL DISTRITO CAPITAL" | "EVENTO" | 2038 | 134 | 6.58 |
| "REGIONAL DISTRITO CAPITAL" | "OPERARIO" | 1556 | 121 | 7.78 |
| "REGIONAL DISTRITO CAPITAL" | "PROFUNDIZACION TECNICA" | 49 | 0 | 0.00 |
| "REGIONAL DISTRITO CAPITAL" | "TECNICO" | 45341 | 623 | 1.37 |
| "REGIONAL DISTRITO CAPITAL" | "TECNOLOGO" | 57767 | 872 | 1.51 |
| "REGIONAL GUAINIA" | "CURSO ESPECIAL" | 123 | 0 | 0.00 |
| "REGIONAL GUAINIA" | "OPERARIO" | 63 | 0 | 0.00 |
| "REGIONAL GUAINIA" | "TECNICO" | 810 | 6 | 0.74 |
| "REGIONAL GUAINIA" | "TECNOLOGO" | 348 | 9 | 2.59 |
| "REGIONAL GUAJIRA" | "CURSO ESPECIAL" | 3194 | 50 | 1.57 |
| "REGIONAL GUAJIRA" | "OPERARIO" | 52 | 0 | 0.00 |
| "REGIONAL GUAJIRA" | "PROFUNDIZACION TECNICA" | 63 | 0 | 0.00 |
| "REGIONAL GUAJIRA" | "TECNICO" | 6607 | 65 | 0.98 |
| "REGIONAL GUAJIRA" | "TECNOLOGO" | 2955 | 25 | 0.85 |
| "REGIONAL GUAVIARE" | "AUXILIAR" | 22 | 0 | 0.00 |
| "REGIONAL GUAVIARE" | "CURSO ESPECIAL" | 2418 | 49 | 2.03 |
| "REGIONAL GUAVIARE" | "EVENTO" | 109 | 0 | 0.00 |
| "REGIONAL GUAVIARE" | "OPERARIO" | 46 | 1 | 2.17 |
| "REGIONAL GUAVIARE" | "TECNICO" | 650 | 12 | 1.85 |
| "REGIONAL GUAVIARE" | "TECNOLOGO" | 843 | 10 | 1.19 |
| "REGIONAL HUILA" | "AUXILIAR" | 100 | 1 | 1.00 |
| "REGIONAL HUILA" | "CURSO ESPECIAL" | 23774 | 901 | 3.79 |
| "REGIONAL HUILA" | "EVENTO" | 529 | 10 | 1.89 |
| "REGIONAL HUILA" | "OPERARIO" | 266 | 1 | 0.38 |
| "REGIONAL HUILA" | "TECNICO" | 11730 | 62 | 0.53 |
| "REGIONAL HUILA" | "TECNOLOGO" | 8485 | 78 | 0.92 |
| "REGIONAL MAGDALENA" | "CURSO ESPECIAL" | 4974 | 309 | 6.21 |
| "REGIONAL MAGDALENA" | "EVENTO" | 27 | 0 | 0.00 |
| "REGIONAL MAGDALENA" | "OPERARIO" | 30 | 0 | 0.00 |
| "REGIONAL MAGDALENA" | "TECNICO" | 11771 | 31 | 0.26 |
| "REGIONAL MAGDALENA" | "TECNOLOGO" | 2907 | 24 | 0.83 |
| "REGIONAL META" | "AUXILIAR" | 64 | 1 | 1.56 |
| "REGIONAL META" | "CURSO ESPECIAL" | 5416 | 697 | 12.87 |
| "REGIONAL META" | "OPERARIO" | 119 | 0 | 0.00 |
| "REGIONAL META" | "TECNICO" | 9193 | 106 | 1.15 |
| "REGIONAL META" | "TECNOLOGO" | 2846 | 13 | 0.46 |
| "REGIONAL NARIÑO" | "AUXILIAR" | 96 | 0 | 0.00 |
| "REGIONAL NARIÑO" | "CURSO ESPECIAL" | 9801 | 92 | 0.94 |
| "REGIONAL NARIÑO" | "EVENTO" | 153 | 54 | 35.29 |
| "REGIONAL NARIÑO" | "OPERARIO" | 68 | 1 | 1.47 |
| "REGIONAL NARIÑO" | "TECNICO" | 11196 | 57 | 0.51 |
| "REGIONAL NARIÑO" | "TECNOLOGO" | 2840 | 32 | 1.13 |
| "REGIONAL NORTE DE SANTANDER" | "AUXILIAR" | 162 | 0 | 0.00 |
| "REGIONAL NORTE DE SANTANDER" | "CURSO ESPECIAL" | 14022 | 564 | 4.02 |
| "REGIONAL NORTE DE SANTANDER" | "EVENTO" | 518 | 173 | 33.40 |
| "REGIONAL NORTE DE SANTANDER" | "OPERARIO" | 365 | 3 | 0.82 |
| "REGIONAL NORTE DE SANTANDER" | "TECNICO" | 21707 | 528 | 2.43 |
| "REGIONAL NORTE DE SANTANDER" | "TECNOLOGO" | 7657 | 85 | 1.11 |
| "REGIONAL PUTUMAYO" | "CURSO ESPECIAL" | 6340 | 150 | 2.37 |
| "REGIONAL PUTUMAYO" | "EVENTO" | 25 | 25 | 100.00 |
| "REGIONAL PUTUMAYO" | "OPERARIO" | 54 | 0 | 0.00 |
| "REGIONAL PUTUMAYO" | "TECNICO" | 4822 | 13 | 0.27 |
| "REGIONAL PUTUMAYO" | "TECNOLOGO" | 899 | 3 | 0.33 |
| "REGIONAL QUINDIO" | "AUXILIAR" | 18 | 0 | 0.00 |
| "REGIONAL QUINDIO" | "CURSO ESPECIAL" | 34588 | 727 | 2.10 |
| "REGIONAL QUINDIO" | "EVENTO" | 1 | 0 | 0.00 |
| "REGIONAL QUINDIO" | "OPERARIO" | 362 | 14 | 3.87 |
| "REGIONAL QUINDIO" | "PROFUNDIZACION TECNICA" | 37 | 0 | 0.00 |
| "REGIONAL QUINDIO" | "TECNICO" | 6985 | 203 | 2.91 |
| "REGIONAL QUINDIO" | "TECNOLOGO" | 6073 | 156 | 2.57 |
| "REGIONAL RISARALDA" | "AUXILIAR" | 180 | 0 | 0.00 |
| "REGIONAL RISARALDA" | "CURSO ESPECIAL" | 26775 | 2194 | 8.19 |
| "REGIONAL RISARALDA" | "EVENTO" | 410 | 0 | 0.00 |
| "REGIONAL RISARALDA" | "OPERARIO" | 603 | 34 | 5.64 |
| "REGIONAL RISARALDA" | "TECNICO" | 8384 | 253 | 3.02 |
| "REGIONAL RISARALDA" | "TECNOLOGO" | 6261 | 174 | 2.78 |
| "REGIONAL SAN ANDRES" | "AUXILIAR" | 21 | 0 | 0.00 |
| "REGIONAL SAN ANDRES" | "CURSO ESPECIAL" | 40702 | 180 | 0.44 |
| "REGIONAL SAN ANDRES" | "EVENTO" | 55 | 3 | 5.45 |
| "REGIONAL SAN ANDRES" | "OPERARIO" | 21 | 0 | 0.00 |
| "REGIONAL SAN ANDRES" | "TECNICO" | 860 | 6 | 0.70 |
| "REGIONAL SAN ANDRES" | "TECNOLOGO" | 1128 | 40 | 3.55 |
| "REGIONAL SANTANDER" | "AUXILIAR" | 76 | 0 | 0.00 |
| "REGIONAL SANTANDER" | "CURSO ESPECIAL" | 40714 | 3092 | 7.59 |
| "REGIONAL SANTANDER" | "EVENTO" | 49 | 49 | 100.00 |
| "REGIONAL SANTANDER" | "OPERARIO" | 427 | 39 | 9.13 |
| "REGIONAL SANTANDER" | "PROFUNDIZACION TECNICA" | 42 | 0 | 0.00 |
| "REGIONAL SANTANDER" | "TECNICO" | 26300 | 708 | 2.69 |
| "REGIONAL SANTANDER" | "TECNOLOGO" | 14879 | 464 | 3.12 |
| "REGIONAL SUCRE" | "CURSO ESPECIAL" | 5839 | 87 | 1.49 |
| "REGIONAL SUCRE" | "OPERARIO" | 48 | 2 | 4.17 |
| "REGIONAL SUCRE" | "TECNICO" | 6616 | 61 | 0.92 |
| "REGIONAL SUCRE" | "TECNOLOGO" | 1105 | 24 | 2.17 |
| "REGIONAL TOLIMA" | "AUXILIAR" | 240 | 1 | 0.42 |
| "REGIONAL TOLIMA" | "CURSO ESPECIAL" | 64651 | 1956 | 3.03 |
| "REGIONAL TOLIMA" | "EVENTO" | 616 | 47 | 7.63 |
| "REGIONAL TOLIMA" | "OPERARIO" | 453 | 52 | 11.48 |
| "REGIONAL TOLIMA" | "TECNICO" | 13316 | 200 | 1.50 |
| "REGIONAL TOLIMA" | "TECNOLOGO" | 10808 | 265 | 2.45 |
| "REGIONAL VALLE" | "AUXILIAR" | 354 | 10 | 2.82 |
| "REGIONAL VALLE" | "CURSO ESPECIAL" | 44632 | 2411 | 5.40 |
| "REGIONAL VALLE" | "EVENTO" | 672 | 9 | 1.34 |
| "REGIONAL VALLE" | "OPERARIO" | 478 | 31 | 6.49 |
| "REGIONAL VALLE" | "PROFUNDIZACION TECNICA" | 29 | 0 | 0.00 |
| "REGIONAL VALLE" | "TECNICO" | 40427 | 729 | 1.80 |
| "REGIONAL VALLE" | "TECNOLOGO" | 18851 | 407 | 2.16 |
| "REGIONAL VAUPES" | "AUXILIAR" | 56 | 0 | 0.00 |
| "REGIONAL VAUPES" | "CURSO ESPECIAL" | 115 | 46 | 40.00 |
| "REGIONAL VAUPES" | "OPERARIO" | 25 | 0 | 0.00 |
| "REGIONAL VAUPES" | "TECNICO" | 123 | 3 | 2.44 |
| "REGIONAL VAUPES" | "TECNOLOGO" | 42 | 0 | 0.00 |
| "REGIONAL VICHADA" | "AUXILIAR" | 13 | 0 | 0.00 |
| "REGIONAL VICHADA" | "CURSO ESPECIAL" | 655 | 3 | 0.46 |
| "REGIONAL VICHADA" | "TECNICO" | 779 | 2 | 0.26 |
| "REGIONAL VICHADA" | "TECNOLOGO" | 561 | 6 | 1.07 |
datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional, 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 = "forestgreen") +
coord_flip()+
facet_wrap(facets = ~nombre_regional, scales = "free", ncol = 3)datos |>
clean_names() |>
mutate_if(is.character, as.factor) |>
group_by(nombre_regional, 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 = "Tasa de Deserción por Nivel de Formación", x = "Nivel de Formación",
y = "Matriculados") +
geom_col(fill = "forestgreen") +
coord_flip()+
facet_wrap(facets = ~nombre_regional, scales = "free", ncol = 3)datos |>
clean_names() |>
select(
codigo_regional,
nombre_regional,
nombre_programa_formacion,
nivel_formacion,
modalidad_formacion,
total_aprendices_matriculados,
desertores_ano_actual
) |>
mutate(nombre_programa_formacion = as_factor(nombre_programa_formacion)) |>
group_by(nivel_formacion) |>
reframe(
total_desertores = sum(desertores_ano_actual),
total_matriculados = sum(total_aprendices_matriculados)) |>
ggplot(mapping = aes(x = fct_reorder(nivel_formacion, total_desertores) , y = total_desertores))+
geom_col(stat = "identity")+
labs(title = "Desertores por Nivel de Formación",
y = "Total Desertores",
x = "Nivel de Formación")+
coord_flip()datos |>
clean_names() |>
select(
codigo_regional,
nombre_regional,
nombre_programa_formacion,
nivel_formacion,
modalidad_formacion,
total_aprendices_matriculados,
desertores_ano_actual
) |>
mutate(nombre_programa_formacion = as_factor(nombre_programa_formacion)) |>
group_by(nivel_formacion) |>
reframe(
total_desertores = sum(desertores_ano_actual),
total_matriculados = sum(total_aprendices_matriculados)) |>
ggplot(mapping = aes(x = fct_reorder(nivel_formacion, total_matriculados) , y = total_matriculados))+
geom_col(stat = "identity")+
labs(title = "Matriculados por Nivel de Formación",
y = "Total Matriculados",
x = "Nivel de Formación")+
coord_flip()