library(readr)
library(leaflet)
library(table1)
library(ggplot2)

A continuación vamos a importar los datos recorrido del sonido realizado en dos zonas de la Universidad Javeriana, como se puede observar en el mapa:

library(readr)
experimento_ <- read_csv("C:/Users/nikol/OneDrive/Escritorio/universidad/QUINTO SEMESTRE/BIOESTADISTICA/sessions_2026020921124620260209-2982714-lc0rcf/bioestadistica_1943625__20260209-2982714-201t9t.csv",  skip = 8)
## Rows: 176 Columns: 6
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (1): Session_Name
## dbl  (4): ObjectID, Latitude, Longitude, 1:Measurement_Value
## dttm (1): Timestamp
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
require(leaflet)
leaflet() %>% addTiles() %>%
  addCircleMarkers(lng = experimento_$Longitude,lat = experimento_$Latitude)

En el mapa se puede observar que el recorrido corresponde a la PUJ edificio Facultad Ciencias Economicas y Administrativas y el Edificio Saman

Exploración de Datos

A continuación vamos a explorar los niveles de ruido por jornada:

n=dim(experimento_)[1]/2

jornada=c(rep("dia",n),rep("noche",n))

experimento_$jornada=jornada

##Exploracion ruido por jornada

table1(~`1:Measurement_Value`|jornada,data =  experimento_)
dia
(N=88)		 noche
(N=88)		 Overall
(N=176)
1:Measurement_Value
Mean (SD) 55.4 (4.60) 61.3 (4.20) 58.3 (5.30)
Median [Min, Max] 54.9 [48.3, 76.2] 61.9 [51.0, 71.2] 58.0 [48.3, 76.2]

En la tabla se observan diferencias en los niveles de ruido:

require(ggplot2)
ggplot(experimento_,aes(y=`1:Measurement_Value`, x=jornada,fill=jornada))+geom_boxplot()+theme_bw()

# Conclusión

El análisis exploratorio de los niveles de ruido registrados en dos zonas de la Universidad Javeriana evidencia diferencias entre las jornadas diurna y nocturna. A partir de la tabla descriptiva y el diagrama de cajas, se observa que los valores de ruido presentan variaciones en su distribución según la jornada, lo que sugiere que la intensidad sonora no es constante a lo largo del día. En general, los niveles durante el día tienden a ser mayores y presentar mayor dispersión en comparación con la noche, posiblemente debido a una mayor actividad académica y circulación de personas.

Estos resultados preliminares indican que la jornada es un factor relevante en la variación del ruido ambiental dentro del campus y podrían motivar análisis estadísticos posteriores para evaluar si las diferencias observadas son estadísticamente significativas.