Informe_Rmarkdown

Informe sobre los comparendos de transito

Aprendices: Carlos Armando Verbel García, Johan Barrios, Ian David Iglesias Arrieta y Jesus David Barrios Montes

29/05/2024

Breve Introducción

En este informe vamos a utilizar una base de datos llamada ‘BD Comparendos SENA’ que contiene información sobre 2120 infracciones de tráfico ocurridas en los meses de abril y mayo del año 2010. Utilizaremos el lenguaje de programación R en formato R Markdown en Documento HTML para analizar estos datos, calcular estadísticas y presentar los resultados mediante gráficos.

1. Primero importaremos la base de datos

#Datos
#Cargamos la librería

library(readxl)
datos <- read_excel("C:\\Users\\PC\\OneDrive\\Documents\\Tareas SENA\\BD Comparendos SENA C.xlsx")

2. Ejercicios Aplicados.

• Este codigo dice la cantidad de comparendos de los genero por codigo.

informacion<- table(datos$GENERO, datos$COD. INFRACCION)
colnames(informacion)<- paste("codigo",colnames(informacion))
print(informacion)

##          
##           codigo 64 codigo 67 codigo 76 codigo 77
##   Empresa       349        31         0        87
##   Hombre        535        22         3       114
##   Mujer         742        52         1       184

• Este codigo muestra el porcentaje de comparendos por hombre y por mujer.

informacion2<- table(datos$GENERO)
porcentaje<- length(datos$`COD. INFRACCION`)
porcentaje_mujer<- (100 * (informacion2["Mujer"])) / porcentaje
porcentaje_hombre<- (100* sum(informacion2["Hombre"])) / porcentaje
print(paste("el porcentaje de comparendos por mujer es de: ",porcentaje_mujer))
print(paste("el porcentaje de comparendos por hombre es de: ",porcentaje_hombre))

## [1] "el porcentaje de comparendos por mujer es de:  46.1792452830189"

## [1] "el porcentaje de comparendos por hombre es de:  31.7924528301887"

• El siguiente codigo muestra el total de comparendo por genero.

comparendos_por_genero<- table(datos$GENERO)
print(comparendos_por_genero)

## 
## Empresa  Hombre   Mujer 
##     467     674     979

• Por ultimo el codigo para motrar los comparendos de vehículos por mes.

mes_comparendo_vehiculo<- table(datos$`Nom MES`,datos$`TIPO DE VEHICULO`)
print(mes_comparendo_vehiculo)

##        
##         AUTO MOTO
##   ABRIL  632   80
##   MAYO  1290  118

3. Gráficos

• Se crea una gráfica tipo diagrama de barras para los comparendos por genero y tipo de vehículos.

library(ggplot2)
colores <- c("skyblue", "pink", "orange", "green", "purple", "yellow")


ggplot(datos, aes(x = `TIPO DE VEHICULO`, fill = GENERO)) +
  geom_bar(position = "dodge", color = "black") +
  labs(title = "Diagrama de Barras",
       x = "Tipo de vehiculo",
       y = "Conteo") +
  scale_fill_manual(values = colores)

• Por ultimo se crea un diagrama de linea sobre la tendencia de comparendos en el mes de Abril y Mayo.

library(ggplot2)
 datos$`FECHA DE COMPARENDO` <- as.Date(datos$`FECHA DE COMPARENDO`)
ggplot(datos, aes(x=`FECHA DE COMPARENDO`)) +
  geom_line(stat='count', color="darkblue") +
  labs(title="Tendencia de Comparendos a lo Largo del Tiempo",
       x="Fecha de Comparendo",
       y="Número de Comparendos") +
  theme_minimal()