Suporte mais amplo da função Legended 

Envolva uma função com Legended para que ela seja destacada de aproximações de séries de Taylor em um gráfico.

In[1]:=

X curves = Append[ Table[Normal@Series[Sin[x], {x, 0, n}], {n, 1, 25, 2}], Legended[Style[Sin[x], Red], Placed[Sin[x], Below]]];

In[2]:=

X Plot[curves, {x, 0, 10}, PlotStyle -> GrayLevel[0.67], PlotRange -> {-2, 2}, ImageSize -> 300]

Out[2]=