Cargas datos de sonido

A continuación se realiza la carga de los datos de sonido del experimento…

library(readr)
ciencias <- read_csv("~/Desktop/ciencias.csv",skip = 8)
licenciatura <- read_csv("~/Desktop/licenciatura.csv",skip = 8)
head(ciencias)

Exploración

En primer lugar vamos a verificar que los puntos donde se tomaron los datos sean apropiados:

##Ejemplo con nuestros datos
require(leaflet)
leaflet() %>% addTiles() %>% 
  addCircleMarkers(lng = ciencias$Longitude,lat =ciencias$Latitude)
leaflet() %>% addTiles() %>% 
  addCircleMarkers(lng = licenciatura$Longitude,lat =licenciatura$Latitude)

Evaluación Ruido Ciencias vs Licenciatura

Para validar la hipotesis de que….. se utiliza la exploración de datos…

sonido=rbind.data.frame(ciencias,licenciatura)

require(table1)
table1(~`1:Measurement_Value` | Session_Name,data=sonido)
Ciencias
(N=1164)		 Licenciatura
(N=1194)		 Overall
(N=2358)
1:Measurement_Value
Mean (SD) 66.1 (4.98) 70.8 (4.99) 68.5 (5.53)
Median [Min, Max] 65.7 [54.1, 82.6] 70.7 [57.0, 85.3] 68.3 [54.1, 85.3]

De manera grafica podemos evaluar la hipotesis con un boxplot

require(ggplot2)

ggplot(sonido,aes(y=`1:Measurement_Value` ,x= Session_Name,fill=Session_Name))+geom_boxplot()+theme_bw()