Mejoras de leyendas 

Las leyendas escalan automáticamente los marcadores cuando hay líneas discontinuas o grosores para facilitar la identificación de curvas.

In[1]:=

X {Plot[{Sin[x], Cos[x]}, {x, 0, 2 \[Pi]}, PlotLegends -> Placed["Expressions", Below]], Plot[{Sin[x], Cos[x]}, {x, 0, 2 \[Pi]}, PlotStyle -> {Dashed, Thickness[.02]}, PlotLegends -> Placed["Expressions", Below]]}

Out[1]=

Las leyendas usan automáticamente los mismos colores como superficies.

In[2]:=

X {Plot3D[{Sin[x y], Cos[x y]}, {x, 0, Pi}, {y, 0, Pi}, PlotLegends -> Placed["Expressions", Below]], Plot3D[{Sin[x y], Cos[x y]}, {x, 0, Pi}, {y, 0, Pi}, PlotStyle -> {Red, Blue}, PlotLegends -> Placed["Expressions", Below]]}

Out[2]=