MP3データを読み込み、スペクトログラムを描画する

plot_spectrogram.R

library(tuneR)
library(seewave)

mp3_files <- list.files(path = "mp3/", pattern = "*.mp3")

for (i in 1:length(mp3_files)) {
    name <- gsub("mp3", "png", mp3_files[i])
    voice <- readMP3(file.path(paste0("mp3/", mp3_files[i])))

    # スペクトログラムの描画
    png(filename = name, width = 3200, height = 1600, res = 240)
    par(cex.lab = 1.3, cex.axis = 1.3)
    spectro(voice, flim = c(0, 10), osc = TRUE)
    dev.off()
}