In[]:=
foo=CandlestickChart["SP500",AspectRatio1,AxesFalse,GridLinesNone];​​bar=DateListPlot[FinancialData["SP500",{Now-Quantity[3,"Months"],Now}],AspectRatio1,AxesFalse,FrameFalse];​​Show[{foo,bar}]​​Overlay[{foo,bar}]
Out[]=
Out[]=