Re: 오늘의 마지막 문제. 오늘 배운 내용으로 시각화 하고 싶은 주제를 자유롭게 시각화 하시오 !

[19기_한지희]

다른 음원으로 소리 시각화

#필요한 패키지 설치 및 로드
install.packages("tuneR")
install.packages("seewave")

library(tuneR)
library(seewave)

#음성 파일을 읽어옴
sample_wave <- readWave("유리어항피아노커버.wav")

#음성 신호와 샘플링 속도 추출
audio_samples <- sample_wave@left
sample_rate <- sample_wave@samp.rate

#주파수 스펙트럼 계산 및 시각화
par(mfrow = c(1, 1))  # 그래프를 1x1 배치로 설정
spectro(audio_samples, fastdisp=TRUE, f = sample_rate, ovlp = 50, collevels = seq(-40, 0, 1))