R / 소리 시각화

93 소리를 시각화

소리 시각화의 중요성 : 의료쪽에서는 심장박동 소리를 시각화해서 질병의 이상징후를 파악하는데 사용, 히트곡의 음악 패턴을 확인할 때 사용

 

문제442. 방금 들은 output.wav파일을 시각화 하시오.

install.packages("tuneR")
library(tuneR)

audio <- readWave("c:\\data\\output.wav")
play(audio)

head(audio@left, 1000)

plot(head(audio@left, 1000))

 

문제443. 원더걸스의 so hot을 시각화 하시오.

library(tuneR)

audio1 <- readWave("c:\\data\\sohot.wav")
play(audio1)

head(audio1@left, 50000)

plot(head(audio1@left, 50000))

 

문제444. 정상적인 심장박동 소리를 포함해서 비정상적인 심장 박동 소리를 각각 시각화 하시오.

audio1 <- readWave("c:\\data\\normal.wav")
audio2 <- readWave("c:\\data\\ps.wav")
audio3 <- readWave("c:\\data\\mr.wav")
audio4 <- readWave("c:\\data\\ar.wav")

play(audio1)
play(audio2)
play(audio3)
play(audio4)

plot(audio1)
plot(audio2)
plot(audio3)
plot(audio4)

 

문제445. 위의 4개의 그래프를 하나의 화면에 동시에 출력될 수 있게 하시오.

graphics.off()  #그래프 지우기
par(mfrow = c(2,2), new = T)  # 2행 2열로 4개의 그래프를 그림
par(mar = c(1,1,1,1))  #여백 위, 아래, 좌, 우를 1씩 설정

plot(audio1)
plot(audio2)
plot(audio3)
plot(audio4)

 

소리데이터 -> 신경망

ex) ai 만들기