2009-12-12 12 views

Répondre

4

Les niveaux de gris sont définitivement dans la fonction spectrogram (gray()), pour remplacer ce paramètre, vous pouvez utiliser, par exemple, les suivantes:

# 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 

Une autre option consiste à utiliser la source de la fonction spectrogram à définir votre propre fonction de tracé qui a un argument pour la palette de couleurs.