r - 使用R检测音频文件中的特定频率

Question

我有一个板球chi声的录音wav文件，每隔20kHz，often声就会发生约0.01秒。我想使用R来检测记录期间特定频率(20kHz)出现/开始的时间。

波浪物体

Number of Samples:      4041625
Duration (seconds):     91.65
Samplingrate (Hertz):   44100
Channels (Mono/Stereo): Mono
PCM (integer format):   TRUE
Bit (8/16/24/32/64):    16 

Answer 1

我相信dfreq包中的 seewave 是您所追求的。该方法返回随时间(以秒为单位)的主频(幅度最高的那个)。这是如何获取该信息的示例:

library(tuneR)
library(seewave)

# Read audio file
crickets <- readWave("~/crickets.wav")

# Get dominant frequency
d <- dfreq(crickets, plot = FALSE)

head(d)

#               x        y
# [1,] 0.00000000 0.000000
# [2,] 0.02332295 0.000000
# [3,] 0.04664589 0.000000
# [4,] 0.06996884 0.000000
# [5,] 0.09329179 0.000000
# [6,] 0.11661474 2.583984