# Labeling curves inside a plot?

**URL:** <https://community.wolfram.com/t/labeling-curves-inside-a-plot/19171>\
**Category:** Questions\
**Tags:** graphics-and-visualization\
**Created:** [November 26, 2021, 6:12am UTC](https://community.wolfram.com/t/labeling-curves-inside-a-plot/19171 "2021-11-26T06:12:17Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![krishanpme16](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/krishanpme16/32/6369_2.png) [@krishanpme16](https://community.wolfram.com/u/krishanpme16)\
**Post date:** [November 26, 2021, 6:12am UTC](https://community.wolfram.com/t/labeling-curves-inside-a-plot/19171/1 "2021-11-26T06:12:17Z")

</div>

I want to lable the curves within graph itself. Here is my code

```
ClearAll["Global`*"];
\[Epsilon] = {0, 0.3, 0.4, 0.5};
\[Beta] = 45;
\[Lambda] = 1;
Nu[F_] := 829440/(
  103680 - 8640 \[Epsilon]^2 + 3960 \[Epsilon]^4 + 297 \[Epsilon]^6 + 
   40 F^2 \[Epsilon]^6 \[Lambda]^2 + 
   40 F^2 \[Epsilon]^6 \[Lambda]^2 Cos[2 \[Beta]]);
Table[{F, Nu[F]}, {F, -5000, 10000, 1000}] // TableForm;
Plot[{Nu[F]}, {F, -5000, 5000},
 PlotRange -> {{-5000, 5000}, {0, 9}},
 AxesStyle -> {Black, Black},
 AxesLabel -> {HoldForm[F], HoldForm[Nu]},
 LabelStyle -> {FontFamily -> "Times New Roman", 16, Bold}
 
 ]

```

As curves are for different epsilon. So i want to lable each curve for epsilon values. Please help

---

<div class="post-metadata">

**Author:** ![mfroeling](https://yyz1.discourse-cdn.com/wolfram/user_avatar/community.wolfram.com/mfroeling/32/23010_2.png) [@mfroeling](https://community.wolfram.com/u/mfroeling)\
**Post date:** [November 26, 2021, 3:05pm UTC](https://community.wolfram.com/t/labeling-curves-inside-a-plot/19171/2 "2021-11-26T15:05:40Z")

</div>

You can use PlotLegends or Callout

```
ClearAll["Global`*"];
\[Epsilon] = {0, 0.3, 0.4, 0.5};
\[Beta] = 45;
\[Lambda] = 1;
Nu[F_, \[Epsilon]_] := 
  829440/(103680 - 8640 \[Epsilon]^2 + 3960 \[Epsilon]^4 + 
     297 \[Epsilon]^6 + 40 F^2 \[Epsilon]^6 \[Lambda]^2 + 
     40 F^2 \[Epsilon]^6 \[Lambda]^2 Cos[2 \[Beta]]);

Plot[Evaluate[Callout[Nu[F, #], #] & /@ \[Epsilon]],
 {F, -5000, 5000}, PlotRange -> {{-5000, 5000}, {0, 9}}, 
 AxesStyle -> {Black, Black}, AxesLabel -> {"F", "Nu"}, 
 LabelStyle -> {FontFamily -> "Times New Roman", 16, Bold},
 PlotLegends -> \[Epsilon]
 ]

```