如何从R中的图中提取值？

Question

如您所知，我们的国家以流行音乐产业而闻名，名为“K-POP”。

最近，用于分析'wav.file'的'tuneR'包已在R。

中发布

所以我想知道K-POP音乐的任何趋势，并通过使用这个包来聚集它们。

在分析中，我得到了一个图表来显示音乐文件的音符（参见下面的示例）

我的问题是我不知道如何从该图中提取峰值的音符（用蓝色圈出的那些）

如果您知道在R中解决此问题的任何功能，请告诉我一些方法。

library("tuneR")

transcribeMusic <- function(wavFile, widthSample = 4096, expNotes = NULL)
{
perioWav <- periodogram(wavFile, width = widthSample)
freqWav <- FF(perioWav)
noteWav <- noteFromFF(freqWav) 
melodyplot(perioWav, observed = noteWav, expected = expNotes, plotenergy = FALSE)
}

songHlp <- readMP3("Beenzino.mp3")
testSound_stereo <- extractWave(songHlp, from = 0, to = 12, xunit = "time")
testSound <- mono(testSound_stereo, "both")
transcribeMusic(testSound)