R绘制基于波振幅数据的频谱图

Question

在R中，如果我想从波中绘制频谱图，如下所示：

>library(sound)
>library(tuneR)
>library(seewave)
>s1<-readWave('sample1.wav')
>spectro(s1,main='s1')
>str(s1)
Formal class 'Wave' [package "tuneR"] with 6 slots
..@ left     : int [1:312000] 2293 2196 1964 1640 1461 1285 996 600 138 -195 ...
..@ right    : num(0) 
..@ stereo   : logi FALSE
..@ samp.rate: int 8000
..@ bit      : int 16
..@ pcm      : logi TRUE

但是，如果我只有数据呢.txt

2293 2196 1964 1640 1461 1285 996 600 138 -195 ...

我应该在spectro函数中放入什么？spectro(wave, f, ...)，据说wave是an R object。还是我应该用别人来得到剧情？我试过了

>s_1<-read.table("s_1.txt", sep=" ")
>spectro(s_1,f=8000)
Error in filled.contour.modif2(x = X, y = Y, z = Z, levels = collevels,  :
no proper 'z' matrix specified

并以错误结束。谢谢。

Answer 1

我同意文档有点模糊。

我相信它想说的是，第一个参数必须是波对象。您可以使用TuneRWave()函数将数值向量转换为 Wave 对象。

v <- runif(5000, -2^15, 2^15-1)
v.wav <- Wave(v, samp.rate=8000, bit=16)
spectro(v.wav)

我没有设法在我当前的计算机上安装seewave，所以我在一台带有几年前软件的旧计算机上对其进行了测试。我不能保证这个例子会起作用。