p=FinancialData["GOOGL","Price",{{2012,1,1},{2012,6,1}},"Value"];

Show[ListPlot[p,PlotStyle-> Gray],ListLinePlot[ExponentialMovingAverage[p,0.3],PlotLegends->"Expressions"]]