Anote pontos de forma programática
Faça dois gráficos com os mesmos dados com diferentes funções de anotação.
In[1]:=
![Click for copyable input](assets.pt-br/programmatically-labeling-points/In_36.png)
Grid[Partition[
Table[ListLinePlot[Prime[Range[10]], LabelingFunction -> functions,
ImageSize -> 250, Filling -> Axis,
PlotTheme -> "Web"], {functions, {(#1 &), (First@#2 &)}}], 2]]
Out[1]=
![](assets.pt-br/programmatically-labeling-points/O_31.png)