1 Carga y Preparación de Datos

df_raw <- read_excel("C:/Users/ah946/Desktop/R.Informe/BD Comparendos - TAD.xlsx")

# Estandarizar nombres
names(df_raw) <- names(df_raw) %>%
  str_trim() %>%
  str_to_lower() %>%
  str_replace_all("[^a-z0-9]", "_") %>%
  str_replace_all("_+", "_")

glimpse(df_raw)
## Rows: 2,120
## Columns: 22
## $ no_mandamiento_de_pago      <chr> "F00003480", "F00003481", "F00003482", "F0…
## $ fecha_mandamiento_de_pago   <chr> "19/08/2010", "19/08/2010", "19/08/2010", …
## $ ejecutado                   <chr> "ALOIS THUNKER .", "JOANN. VITEK", "FADI D…
## $ tipo_de_identificacion      <chr> "Cedula de Ciudadanía", "Cedula de Extanje…
## $ suma_tipo_de_identificacion <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
## $ no_identificacion           <dbl> 235770, 264065, 312318, 312318, 22476567, …
## $ g_nero                      <chr> "Hombre", "Hombre", "Hombre", "Hombre", "M…
## $ suma_g_nero                 <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
## $ cod_infraccion              <dbl> 64, 64, 64, 64, 64, 64, 64, 64, 77, 64, 64…
## $ sum_cod_infraccion          <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
## $ tipo_de_infracci_n          <chr> "velocidad superior a la máxima permitida"…
## $ suma_tipo_de_infracci_n     <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, …
## $ comparendo                  <chr> "F00008782", "F00003876", "F00012650", "F0…
## $ fecha_de_comparendo         <dttm> 2010-05-06, 2010-04-26, 2010-05-16, 2010-…
## $ dia                         <dbl> 6, 26, 16, 18, 13, 12, 21, 29, 16, 23, 22,…
## $ nom_dia                     <chr> "JUEVES", "LUNES", "DOMINGO", "MARTES", "J…
## $ mes                         <dbl> 5, 4, 5, 5, 5, 4, 5, 4, 5, 4, 4, 4, 5, 4, …
## $ nom_mes                     <chr> "Mayo", "Abril", "Mayo", "Mayo", "Mayo", "…
## $ a_o                         <dbl> 2010, 2010, 2010, 2010, 2010, 2010, 2010, …
## $ paca_de_vehiculo            <chr> "BPL408", "QHJ756", "QHM102", "QHM102", "U…
## $ tipo_vehiculo               <chr> "Auto", "Auto", "Auto", "Auto", "Auto", "A…
## $ valor_a_pagar               <dbl> 515000, 515000, 515000, 515000, 515000, 51…

2 Resumen

Indicadores clave del periodo
Indicador Valor
Total comparendos registrados 2.120
Periodo analizado 12/04/2010 - 27/05/2010
Valor total liquidado (COP) $ 991.632.500
Valor promedio por comparendo $ 467.751
Infractores reincidentes 352
Codigos de infraccion detectados 4
Tipos de vehiculo involucrados 2

3 Analisis por Codigo de Infraccion

Catalogo de codigos presentes en la base de datos

Resumen por codigo de infraccion
Codigo Descripcion Gravedad Comparendos % del total Valor liquidado
64 Velocidad superior a la maxima permitida Grave 1626 76.7 $ 837.390.000
77 No detenerse ante luz roja o amarilla Grave 385 18.2 $ 99.137.500
67 No respetar el paso de peatones Grave 105 5.0 $ 54.075.000
76 Transitar en sentido contrario Grave 4 0.2 $ 1.030.000

3.1 Codigo 64 - Velocidad superior a la maxima permitida

76,7 % del total de comparendos. Es la infraccion mas critica de la base de datos, captada exclusivamente por camaras de fotomultas. Predomina en fines de semana, en autos, y escalo fuertemente durante mayo.

3.1.1 Distribucion por genero

3.1.2 Dia de la semana con mayor ocurrencia

3.1.3 Tipo de vehiculo

Cod 64 - Vehiculos implicados
Tipo de vehiculo Comparendos % del codigo
Auto 1467 90.2
Moto 159 9.8

3.2 Codigo 77 - No detenerse ante luz roja o amarilla

18,2 % del total. Segunda infraccion en frecuencia. Ocurre principalmente en dias habiles (miercoles y martes), lo que sugiere mayor trafico en intersecciones durante la semana laboral. El valor por comparendo es de $ 257.500, menor al codigo 64.

3.2.1 Distribucion por genero

3.2.2 Dia de la semana

3.3 Codigo 67 - No respetar el paso de peatones

5,0 % del total, pero de alto impacto social dado que afecta directamente la seguridad peatonal. Solo autos fueron registrados en este codigo - ninguna moto. Se concentra en domingos y aplica unicamente en la categoria Auto con valor de $ 515.000 por comparendo.

3.3.1 Distribucion por genero

3.3.2 Dia de la semana

3.4 Codigo 76 - Transitar en sentido contrario

Solo 4 comparendos registrados, todos en abril. Aunque la cifra es baja, este codigo implica un riesgo de choque frontal severo. Involucra tanto motos como autos. Requiere mayor cobertura de camara para su correcta deteccion.

Cod 76 - Detalle de los 4 comparendos registrados
Comparendo Fecha Dia Genero Tipo vehiculo Placa Valor
F00000995 15/04/2010 JUEVES Mujer Moto BVB26A $ 257.500
F00001437 17/04/2010 NA Hombre Auto QHY787 $ 257.500
F00000693 14/04/2010 NA Hombre Moto BSB95A $ 257.500
F00001379 16/04/2010 VIERNES Hombre Auto QGN558 $ 257.500

4 Comparativo entre Codigos

5 Analisis Temporal General

5.1 Tendencia semanal (todos los codigos)

5.2 Distribucion por mes (Abril vs Mayo)

6 Reincidencia de Infractores

7 Tipo de Identificacion y Vehiculo

Cruce: tipo de identificacion x tipo de vehiculo
Tipo de Identificacion Auto Moto
Cedula de Ciudadanía 1483 165
Cedula de Extanjería 5 0
Nit 450 17

8 Conclusiones y Recomendaciones

# Hallazgo Recomendacion
1 Cod 64 concentra el 76,7 % (velocidad). Pico en fines de semana y semanas 18-19. Reforzar fotomultas en vias de alta velocidad los fines de semana.
2 Cod 77 (semaforo) ocurre mas en dias habiles (miercoles/martes). Ampliar camaras en intersecciones de alta demanda entre semana.
3 Cod 67 (peatones) solo detecta autos; ninguna moto sancionada. Evaluar angulo y resolucion de camaras en pasos peatonales.
4 Cod 76 (contravia) registra solo 4 casos — posible subregistro. Instalar camaras bidireccionales en vias criticas.
5 352 infractores reincidentes; el mayor acumula 61 comparendos. Activar inmovilizacion para infractores con 5 o mas comparendos.
6 Mayo duplica a abril en comparendos. Incluir mas periodos para evaluar tendencias estructurales.
7 Empresas (NIT) representan el 22 % del total. Implementar notificacion directa a propietarios juridicos.

Reporte creado el 30 de mayo de 2026 — Alonso De Jesus Herrera Cantillo — Colombia