¿Cómo etiqueto diferentes curvas en Mathematica?

Question

¿Cómo puedo etiquetar cada una de estas líneas por separado:

Plot[{{5 + 2 x}, {6 + x}}, {x, 0, 10}] 

Answer 1

Hay algún código agradable que le permite hacer esto de forma dinámica en an answer a How to annotate multiple datasets in ListPlots.

También hay un comando LabelPlot se define en la Nota Técnica Labeling Curves in Plots

Por supuesto, si usted no tiene demasiadas imágenes para hacer, entonces no es difícil añadir manualmente las etiquetas en el uso de Epilog, por ejemplo,

fns[x_] := {5 + 2 x, 6 + x}; 
len := Length[fns[x]]; 

Plot[Evaluate[fns[x]], {x, 0, 10}, 
Epilog -> Table[Inset[ 
    Framed[DisplayForm[fns[x][[i]]], RoundingRadius -> 5], 
    {5, fns[5][[i]]}, Background -> White], {i, len}]] 

de hecho, se puede hacer algo similar con Locators que le permite mover º e etiquetas dondequiera que quieren:

DynamicModule[{pos = Table[{1, fns[1][[i]]}, {i, len}]}, 
LocatorPane[Dynamic[pos], Plot[Evaluate[fns[x]], {x, 0, 10}], 
    Appearance -> Table[Framed[Text@TraditionalForm[fns[x][[i]]], 
        RoundingRadius -> 5, Background -> White], {i, len}]]] 

En lo anterior hice los localizadores toman la forma de las etiquetas, aunque también es posible mantener una Epilog como la anterior y tienen localizadores invisibles que controlan las posiciones. Los localizadores también podrían estar limitados (usando el segundo argumento de Dynamic) a las curvas apropiadas ... pero eso no es realmente necesario.

Como un ejemplo del código anterior con las funciones con las etiquetas mover con la mano:

fns[x_] := {Log[x], Exp[x], Sin[x], Cos[x]}; 

Answer 2

Puede insertar leyendas en su parcela cargando el PlotLegends paquete

<<PlotLegends`; 
Plot[{5+2 x,6+x},{x,0,10}, 
    PlotLegend->{"5+2x","6+x"},LegendShadow->None, 
    LegendPosition->{0.3,-0.5},LegendSpacing->-0,LegendSize->0.5] 

---

Sin embargo, permítanme también notar mi aversión por este paquete, principalmente porque es extremadamente contrario a la intuición, cargado con demasiadas opciones y no proporciona una experiencia limpia desde el primer momento como la mayoría de las funciones de Mathematica. Tendrá que juguetear con las opciones para obtener lo que quiere. Sin embargo, en tramas y cuadros donde quieres una leyenda, esto puede ser útil. También vea los comentarios a this answer y this question.

Answer 3

Mathematica 9 ahora ofrece formas sencillas de incluir leyendas.

Plot[{{5 + 2 x}, {6 + x}}, {x, 0, 10}, PlotLegends -> "Expressions"]