Importación de datos

A continuación, vamos a importar los datos de los niveles de ruido tomados en la unidad “La Siembra” ubicada en el barrio El Ingenio, Cali. Los datos se obtuvieron mediante un recorrido a la unidad utilizando la aplicación de celular llamada Air Casting.

library(readr)
airball <- read_csv("C:/Users/sebas/Documents/5to semestre/Bioestadistica/airball.csv", skip = 8)

require(leaflet)
leaflet() %>% addTiles() %>% addCircleMarkers(lng = airball$Longitude, lat = airball$Latitude)

En el mapa anterior se observa el recorrido realizado, el cual consistió en dos vueltas a la unidad, tratando de pasar por las diferentes zonas comunes que esta tiene las cuales incluyen: una zona de juegos de niños, parqueadero, salón social y una zona verde. El nivel de ruido se mide en decibeles (dB) y se tomaron dos jornadas: día y noche.

Exploración de datos

A continuacion, vamos a explorar los niveles de ruido por jornada para entender los datos obtenidos

##Crear un campo hipotetico que se llama jornada = dia o noche
n = round(dim(airball)[1]/2,0)

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

airball$jornada=jornada

##Exploracion del ruido por jornada

library(table1)

table1(~`1:Measurement_Value`|jornada,data = airball)
dia
(N=238)		 noche
(N=237)		 Overall
(N=475)
1:Measurement_Value
Mean (SD) 65.3 (4.92) 66.8 (5.41) 66.1 (5.22)
Median [Min, Max] 64.9 [50.2, 80.8] 66.1 [54.9, 84.1] 65.6 [50.2, 84.1]

Esta comparativa nos permite observar que los niveles de ruido en ambas jornadas son bastante similares. Esto se observa en la media y mediana de cada jornada respectivamente. Para evitar sesgos, la mediana nos da una mejor visión donde se obtiene un valor de 64.9 dB en el día y de 66.1 dB en la noche, el valor en la noche es mayor pero no significativamente, por lo que los niveles de ruido durante todo el día se mantiene relativamente estables dentro de la unidad.

library(ggplot2)

ggplot(data=airball,aes(x=`1:Measurement_Value`)) + geom_histogram(fill="blue")

Grafica 1. Histograma de la distribución de los niveles de ruido en la unidad La Siembra

library(ggplot2)
ggplot(data=airball,aes(x= jornada,y=`1:Measurement_Value`,fill = jornada)) + geom_boxplot()

Grafica 2. Boxplot de los datos de niveles de ruido para cada jornada tomados en la unidad La Siembra

El histograma (grafica 1) muestra la distribución de los niveles ruido durante el muestreo, el eje X muestra los niveles de ruido en decibeles (dB), mientras que el eje Y representa la frecuencia de observaciones en intervalos de niveles de ruido nuevamente en dB. Se logra observar como la mayoría datos que se obtuvieron se encontraban entre los 60 y 70 dB, con muy pocos registros en los valores extremos cercanos a los 50 y 80 dB respectivamente. Lo anterior indica que la variabilidad de los datos es moderada.

Continuando con la gráfica de complot (grafica 2), el eje X representa las dos jornadas en las que se realizó el muestreo: día y noche, mientras que el eje Y muestra los valores de ruido tomados en dB. En esta grafica se logra apreciar fácilmente una mediana mayor en la noche junto a una mayor variabilidad en los niveles de ruido de esa jornada comparado a la del día. Adicionalmente, se observa una mayor cantidad de datos atípicos para la jornada de noche de altos niveles de ruido mayores a los 80 dB, lo que refuerza el hecho de que en la jornada nocturna existe mayor variabilidad en los niveles de ruido.

Conclusión

De acuerdo con la exploración de datos realizado comparando las jornadas de día y noche, junto a las gráficas realizadas se concluye que la noche tiene una mediana ligeramente mayor de niveles de ruido y presenta una mayor variabilidad que el día en los niveles de ruido. Sin embargo, al ser un nivel solo ligeramente mayor y basado en el histograma los niveles de ruido en la unidad se mantienen relativamente constantes con valores entre los 60 y 70 dB durante todo el día, con excepción unos pocos momentos específicos donde bajan alrededor de 50 dB o suben hacia los 80 dB.