Neues Beschriftungssystem
Verwenden Sie die PlotLabels-Option, um Ausdrücke automatisch als Beschriftungen hinzuzufügen.
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]=
Mit dem Labeled-Wrapper können Sie die Beschriftungen direkt neben den Kurven platzieren.
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]=
Mit dem Callout-Wrapper können Sie Hinweislinien von den Beschriftungen zu den Kurven ziehen.
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]=
