R 프로그래밍 소리 시각화

지난 게시글에서 지도 시각화를 해봤습니다.

이번에는 소리 파일을 가져와서 소리를 시각화해보겠습니다.

 

마찬가지로 R Studio Cloud로 진행합니다.

https://rstudio.cloud/ 

RStudio Cloud - Do, share, teach, and learn data science

https://crazydeer.tistory.com/32

R Studio Cloud 사용법과 원형(pie) 그래프 시각화

사용법 참고하세요 ㅎㅎ

 

우선 아래의 wav sample 파일을 시각화하기 위하여 다운로드합니다.

wav_sample4.wav

2.52MB

wav_sample3.wav

1.26MB

wav_sample2.wav

0.13MB

wav_sample1.wav

1.02MB

참고로 sample4는 스타워즈 음악이더라고요 ㅎㅎ

 

R Studio Cloud Files Window

위와 같이 wav 파일들을 업로드해줍니다.

 

그리고 라이브러리를 설치하고 import 합니다.

 

install.packages("tuneR")

library(tuneR)

 

 

그리고 각각 변수에 읽어줍니다.

 

audio1 <- readWave("wav_sample.wav")
audio2 <- readWave("wav_sample2.wav")
audio3 <- readWave("wav_sample3.wav")
audio4 <- readWave("wav_sample4.wav")

 

Environment 창

 

변수에 잘 저장되었죠? 각각 얼마나 많은 요소들이 있는지, 크기는 얼마인지 대략적으로 보여줍니다.

그리고 변수를 클릭하면 자세한 정보도 나옵니다.

 

변수 정보

 

left, right, strereo 등등 나옵니다.

콘솔 창에 audio1 하고 @를 붙여주면 아래처럼 위의 함수? 들을 쓸 수가 있어요.

 

 

 

> audio1@left[0:500]

해주면 왼쪽부터 0부터 500번째까지를 말합니다.

 

audio1@left[0:500]

 

이제 이걸 plot 해주기만 하면 끝입니다.

 

> plot(audio1@left[0:500], pch=19, col="green")

 

plot(audio1@left[0:500], pch=19, col="green")

 

 

그러면 위에서 받은 샘플 wav파일 4개를 4칸으로 나눠서 한 번에 비교해볼 수 있도록 시각화해봅시다.

 

> graphics.off()
> par(mfrow=c(2,2))
> par(mar=c(2,4,2,2))
> plot(audio1@left[0:500], pch=19, col="green")
> plot(audio2@left[0:500], pch=19, col="green")
> plot(audio3@left[0:500], pch=19, col="green")
> plot(audio4@left[0:500], pch=19, col="green")

 

소리 시각화

 

위와 같은 방법으로 정상적인 상태의 심장박동 소리와 그렇지 못한 상태의 심장박동 소리를 시각화하여 서로 비교할 수도 있습니다. 소리 시각화로 여러 가지 소리를 눈으로 확인해보세요.