Я делаю некоторую работу, которая включает анализ формы волны и выделение определенных событий, которые пересекают порог амплитуды. Эта часть работает нормально.
Однако после того, как я выполнил этот анализ, я хотел бы иметь возможность построить результирующий сигнал с порогом амплитуды (и событиями, но это вторично), нарисованными поверх него.
Мне удалось сделать это с помощью grapics :: plot (), но это занимает очень много времени, а использование пакетов tuneR и tuneR :: plot () намного быстрее выплевывает сигнал. Тем не менее, я не могу понять, как нарисовать порог над ним.
Это самое близкое, что я получил:
library(tuneR)
Wave <- readWave(filename = "Wave.wav", units = "seconds", from = 0, to = 1800)
Right_Threshold <- -6*sd(Wave@left)
Left_Threshold <- -6*sd(Wave@right)
tuneR::plot(Wave, panel.first={
lines(x = c(0,1800), y = c(Left_Threshold, Left_Threshold), col = 2)
})
Что дает это: график формы волны с превышением порога амплитуды
Я бы хотел иметь возможность наносить пороги на ОБА панели, в идеале с решением, которое также позволит мне использовать graphics :: points () для построения записи событий пересечения порогов позже.