class: center, middle, inverse, title-slide # Explorando la sonidificación de datos en R ### Alejandra Tapia ### RLadies Talca ### 22/01/2021 --- class: center, middle ## ¿Qué es la sonidificación de datos?  --- class: center, middle ##`> Es convertir datos en sonido o el proceso de representar datos mediante sonidos en el rango audible` --- class: center, middle ## ¿Cómo sonidificar datos con R? --- class: left ## `Algunos paquetes ` 📦 ### > {tuneR} https://cran.r-project.org/web/packages/tuneR/index.html ### > {audio} https://cran.r-project.org/web/packages/audio/index.html ### > {sonify} https://cran.r-project.org/web/packages/sonify/index.html --- class: center, middle ## `Paquete {sonify}` 🎧 .left[ ### > Stefan Siegert [aut, cre], Robin Williams [aut] ] --- class: center, middle ## `Paquete {sonify}` 🎧 .left[ ### > Proporciona la función `sonify()` que transforma datos univariados, muestreados a intervalos regulares o irregulares, en un sonido continuo con frecuencia variable en el tiempo ] --- class: center, middle ## `Paquete {sonify}` 🎧 .left[ ### > Los altibajos en la frecuencia representan los altibajos en los datos ] --- class: center, middle ## `Paquete {sonify}` 🎧 .left[ ### > Proporciona un sustituto de la función `plot()` de R para simplificar el análisis de datos para las personas no videntes ] --- class: center, middle ##`¿Cómo usar la función sonify()?`👩🏻‍💻 --- class: left, middle ##`¿Cómo usar la función sonify()?`👩🏻‍💻 #### `Cargar paquetes` .pull-left[ ```r library(tuneR) library(sonify) ``` ] .pull-right[ ] --- class: left, middle ##`¿Cómo usar la función sonify()?`👩🏻‍💻 #### `> Onda sinusoidal` .pull-left[ ```r t<-seq(0,20,0.1) y<-sin(t) plot(t,y,type="l",lwd=2,col="blue") ``` ```r sonify(y,duration=5,play=TRUE, waveform = "sine") ``` ] .pull-right[ <!-- --> ] --- class: left, middle ##`¿Cómo usar la función sonify()?`👩🏻‍💻 #### `> Distribución Normal` .pull-left[ ```r x<-seq(-5,5,length=200) y<-dnorm(x,mean=0,sd=1) z<-dnorm(x,mean=0,sd=sqrt(5)) plot(x,y,type="l",lwd=2,col="red") lines(x,z,type="l",lwd=2,col="green") ``` ```r sonify(y,duration=5,play=TRUE, waveform = "sine") sonify(z,duration=5,play=TRUE, waveform = "sine") ``` ] .pull-right[ <!-- --> ] --- class: left, middle ##`¿Cómo usar la función sonify()?`👩🏻‍💻 #### `> Fuerza Media en Nudos (Kt) del viento obtenida de la estación Curicó - Dirección Meteorológica de Chile` .pull-left[ ```r library(readr) datos<-read_csv2("viento.csv") ``` ```r x<-c(1:30) y<-datos$FMedia plot(x,y,type="l",lwd=1,col="blue") ``` ```r sonify(y,duration=5,play=TRUE, waveform = "sine") ``` ] .pull-right[ <!-- --> ] --- class: center, middle ##`La exploración continuará...`👩‍🎤 --- class: center, middle #`¡Gracias!` .center[<img src=imgs/R-Ladies_Talca_hex.png width="30%">] ###### Presentación creada con el paquete [**xaringan**](https://github.com/yihui/xaringan) de [**Yihui Xie**](https://github.com/yihui) y el tema [**rladies**](https://github.com/rbind/apreshill/blob/master/static/slides/rladies-demo-slides.Rmd) de [**Alison Hill**](https://github.com/apreshill)