opts={ImageSize->500,Frame->True,ImagePadding->{{30,3},{15,3}}};

data=Table[Sign[Cos[x+Sin[x^2]]],{x,-6,6,0.025}];
cwt=ContinuousWaveletTransform[data];

Column[{WaveletScalogram[cwt,ColorFunction->"SunsetColors",opts],ListLinePlot[data,PlotStyle->Directive[Thick,Darker@Purple],AspectRatio->1/4,opts]}]