Mathematicaのさまざまな曲線にどのようにラベルを付けるのですか？

Question

は、どのように私は別に、これらの行のそれぞれにラベルを付けることができます。

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

Answer 1

あなたはHow to annotate multiple datasets in ListPlotsにan answerで動的にこれを行うことができますいくつかの素晴らしいのコードがあります。あなたが作るためにあまりにも多くの画像を持っていない場合

もテクニカルノートもちろん​​Labeling Curves in Plots

で定義されてLabelPlotコマンドあります、 は、それは手動で、たとえば、Epilogを使用してラベルを追加することは難しいことではありません

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}]] 

は実際には、あなたが目を移動することができますLocatorsと似た何かを行うことができます電子ラベルはどこにしたい：私はロケータラベルの形をとる作っ上記で

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}]]] 

を、上記のようなEpilogを維持することも可能であると位置を制御見えないロケータを持っているが。 ロケータは適切なカーブに（第2引数のDynamicを使用して）拘束することもできますが、実際には必要ありません。手で移動したラベルを持つ関数と、上記のコードの例として

：

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

Answer 2

あなたはPlotLegendsパッケージ

<<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] 

をロードすることによって、あなたのプロットの凡例を挿入することができます

---

しかし、私はこのパッケージの嫌いな点にも注意しましょう。これは、非常に直観的ではなく、あまりにも多くのオプションを含んでおり、大部分のMathematicaの機能のようにすぐにクリーンな体験を提供しないからです。あなたは、あなたが望むものを得るための選択肢と一緒にやっていくためにいくつか手を振っています。しかし、凡例が必要なプロットやグラフでは、これは便利です。また、this answerとthis questionのコメントも参照してください。

Answer 3

Mathematica 9では、凡例を簡単に含めることができます。

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