data=WeatherData["KMDZ","MeanTemperature",{{2007,1,1},{2007,12,31},"Day"}];

plot=DateListPlot[data,Joined->True,ImageSize->412,FrameTicksStyle->Directive[12,FontFamily->"Helvetica"],PlotStyle->ColorData["FallColors"][0]];

dwd=StationaryWaveletTransform[data["Values"],HaarWavelet[],5];

bwc=BoxWhiskerChart[Join[{data["Values"]},dwd[Automatic,"Values"]],"Notched",ChartLabels->Placed[Join[{"data"},dwd["BasisIndex"]],Axis],BarOrigin->Left,GridLines->Automatic,ChartStyle->"FallColors",ImageSize->460,FrameTicksStyle->Directive[12,FontFamily->"Helvetica"]];

Framed[Grid[{{Column[{"Mean","temperatures"}],plot},{Column[{"Wavelet","coefficent","distribution"}],bwc}},Alignment->{{Left,Right},{Center}},Dividers->Center,Spacings->{1,3},FrameStyle->GrayLevel@0.8,BaseStyle->{FontFamily->"Helvetica",12,Bold}],RoundingRadius->10,FrameStyle->GrayLevel@0.2,FrameMargins->10]