Как мне наложить на участок с несколькими панелями?

Я делаю некоторую работу, которая включает анализ формы волны и выделение определенных событий, которые пересекают порог амплитуды. Эта часть работает нормально. Однако, после того как я сделал этот анализ, я хотел бы иметь возможность построить результирующий сигнал с порогом амплитуды (и событиями, но это вторично), нарисованными поверх него.

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

0 ответов

Другие вопросы по тегам