R (컴퓨팅 환경)을 사용하여 현명한 Hilbert 스펙트럼 플롯을 만드는 방법

Question

나는 그것을 사용하고있다 EMD 이 패키지에는 Hilbert 스펙트럼 (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 기능은 색상 팔레트에 대한 인수가있는 자신의 플롯 기능을 정의하는 기능입니다.