En la administración de infraestructuras de TI, el monitoreo y análisis de los logs de conexión es fundamental para comprender el comportamiento de la red, identificar cuellos de botella y detectar posibles anomalías de seguridad. Este documento presenta un breve análisis descriptivo inicial sobre un conjunto de datos (simulado) de logs de conexión a servidores, con el fin de ilustrar el procesamiento básico.
Para llevar a cabo nuestro análisis, primero vamos a simular un registro semanal de la cantidad de conexiones diarias recibidas por un servidor Web y un servidor de Base de Datos.
# Secuencia de días de la semana
dias <- c("Lunes", "Martes", "Miércoles", "Jueves", "Viernes", "Sábado", "Domingo")
# Conexiones simuladas por servidor
servidor_web <- c(1205, 1340, 1420, 1390, 1500, 600, 450)
servidor_bd <- c(450, 500, 480, 520, 610, 120, 90)
# Creación de un Data Frame
logs_red <- data.frame(Dia = dias, Web = servidor_web, BaseDatos = servidor_bd)
print(logs_red)
## Dia Web BaseDatos
## 1 Lunes 1205 450
## 2 Martes 1340 500
## 3 Miércoles 1420 480
## 4 Jueves 1390 520
## 5 Viernes 1500 610
## 6 Sábado 600 120
## 7 Domingo 450 90
A continuación, ejecutaremos operaciones sencillas para calcular el total de tráfico en la semana y obtendremos un resumen estadístico general de ambos servidores.
# Operación: Total de conexiones en la semana
total_web <- sum(logs_red$Web)
total_bd <- sum(logs_red$BaseDatos)
cat("Conexiones totales Servidor Web: ", total_web, "\n")
## Conexiones totales Servidor Web: 7905
cat("Conexiones totales Servidor BD: ", total_bd, "\n")
## Conexiones totales Servidor BD: 2770
# Resumen general de los datos numéricos
summary(logs_red[, c("Web", "BaseDatos")])
## Web BaseDatos
## Min. : 450.0 Min. : 90.0
## 1st Qu.: 902.5 1st Qu.:285.0
## Median :1340.0 Median :480.0
## Mean :1129.3 Mean :395.7
## 3rd Qu.:1405.0 3rd Qu.:510.0
## Max. :1500.0 Max. :610.0
Para entender mejor la distribución del tráfico, creamos un gráfico de barras sencillo mostrando la actividad del servidor Web.
# Gráfico de las conexiones al servidor web
barplot(logs_red$Web,
names.arg = logs_red$Dia,
col = "steelblue",
main = "Tráfico Diario del Servidor Web",
xlab = "Días",
ylab = "Cantidad de Conexiones",
las = 1)
A partir del análisis estadístico y la visualización de los datos simulados de logs, es evidente que existe un patrón de tráfico fuertemente ligado a los días laborables. El servidor Web alcanza su pico de conexiones durante la semana de lunes a viernes, mientras que la actividad decae drásticamente durante el fin de semana (sábado y domingo). Este tipo de hallazgos descriptivos básicos permite a los administradores de red comprender la distribución de la carga, prever la asignación de recursos y planificar ventanas de mantenimiento en los momentos de menor impacto.