Новая система маркировки

Используйте опцию PlotLabels для автоматического добавления выражений в качестве меток.

In[1]:=

Plot[Evaluate[Table[Log[x] Sin[i x], {i, 1, 5}]], {x, 0, 3}, PlotLabels -> Automatic, ImageSize -> 500, PlotTheme -> {"Web", "LargeLabels"}]

Out[1]=

Используйте функцию-обёртку Labeled для размещения меток близко к кривым.

In[2]:=

Plot[Evaluate[ Table[Labeled[BesselY[i, x], BesselY[i, x], Above], {i, 0, 4}]], {x, 2, 8}, ImageSize -> 500, PlotTheme -> {"Web", "LargeLabels"}]

Out[2]=

Используйте функцию-обёртку Callout, чтобы метки указывали на кривые.

In[3]:=

Plot[Evaluate@ Table[Callout[BesselJ[i, x], BesselJ[i, x], Above], {i, 1, 6}], {x, 0, 8}, ImageSize -> 500, PlotTheme -> {"Web", "LargeLabels"}]

Out[3]=