Как мне наложить на участок с несколькими панелями?
Я делаю некоторую работу, которая включает анализ формы волны и выделение определенных событий, которые пересекают порог амплитуды. Эта часть работает нормально. Однако, после того как я сделал этот анализ, я хотел бы иметь возможность построить результирующий сигнал с порогом амплитуды (и событиями, но это вторично), нарисованными поверх него.
Мне удалось сделать это с помощью 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() для построения записи о событиях пересечения порогов позже.