Множественные выноски

Выноски могут использоваться для маркировки максимума и минимума кривой.

In[1]:=

Plot[{Callout[Sin[Sqrt[2] x] + Sin[x], {"max", "min"}, {Above, Below}, LabelStyle -> Medium]}, {x, 0, 8}, ImageSize -> 400, PlotTheme -> "Web", PlotRange -> {-2.5, 2.5}]

Out[1]=

Добавьте выноски к каждой точке графика.

In[2]:=

ListLinePlot[{Table[Callout[{i, Sin[i/2]}, i, Below], {i, 0, 10, 1}]}, PlotTheme -> "Business"]

Out[2]=