Mi primer informe

Carga de datos

library(readr)
ciencias_audio <- read_csv("C:/Users/bryanjv/Downloads/ciencias audio.csv", 
    skip = 8)

## Rows: 1164 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.

library(readr)
licenciatura_audio <- read_csv("C:/Users/bryanjv/Downloads/licenciatura audio.csv", 
    skip = 8)

## Rows: 1194 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.

Exploración.

sonido=rbind.data.frame(ciencias_audio,licenciatura_audio)

require(leaflet)

## Cargando paquete requerido: leaflet

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

require(table1)

## Cargando paquete requerido: table1

## 
## Adjuntando el paquete: 'table1'

## The following objects are masked from 'package:base':
## 
##     units, units<-

table1(~`1:Measurement_Value`,data=sonido)

	Overall (N=2358)
1:Measurement_Value
Mean (SD)	68.5 (5.53)
Median [Min, Max]	68.3 [54.1, 85.3]

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]

Evaluación de datos ciencias vs licenciatura