data=Table[Sin[450 x],{x,0,1,1/1024}]+Table[Sin[50 x^2],{x,0,1,1/1024}];

dwd=StationaryWaveletTransform[data,Automatic,7];

Column[{ListLinePlot[data,ImageSize->570,AspectRatio->0.2,PlotStyle->Directive[Thick,ColorData["DarkRainbow",0.2]],Axes->{False,True},TicksStyle->Directive[13,FontFamily->"Verdana"],PlotLabel->Style["Data",FontFamily->"Verdana",Brown,Bold,16],InterpolationOrder->2,ImagePadding->{{20,Automatic},{Automatic,Automatic}}],WaveletListPlot[dwd,Automatic,PlotStyle->(ColorData["DarkRainbow"]/@Riffle[#,#2]&@@Partition[Range[0.05,0.85,0.8/7],4]),ImageSize->570,PlotLayout->"CommonYAxis",Ticks->Full,TicksStyle->Directive[13,FontFamily->"Verdana"],PlotLabel->Style["Wavelet Decomposition",FontFamily->"Verdana",Brown,Bold,16],ImagePadding->{{30,Automatic},{Automatic,Automatic}}]},Alignment->Right]