Как создать разумный график спектра Гильберта с помощью R (вычислительная среда)

Question

Я использую ЭМД посылка для R.Этот пакет имеет функцию спектрограммы для отображения спектра Гильберта (вычисляется с помощью hilbertspec).Однако результат действительно расплывчатый и черно-белый.

Похоже, что у этой функции нет опции для вывода цветных изображений.Как я могу добиться четкого отображения спектра и, по возможности, в цвете?

Answer 1

Уровни серого жестко запрограммированы в spectrogram функция (gray()), чтобы переопределить этот параметр, вы могли бы использовать, например, следующее:

# define a color palette
colors <- colorRampPalette(c("#007FFF", "blue", "#000077"))  
gray <- function(x) colors(255*x)  # redefine gray palette
spectrogram(test1$amplitude[,1], test1$instantfreq[,1])
gray <- grDevices::gray  # reset gray palette function

Другой вариант заключается в использовании источника spectrogram функция для определения вашей собственной функции построения графика, которая имеет аргумент для цветовой палитры.