Etiquete puntos programáticamente
Grafique los mismos datos con distintas funciones de etiquetado.
In[1]:=
Grid[Partition[
Table[ListLinePlot[Prime[Range[10]], LabelingFunction -> functions,
ImageSize -> 250, Filling -> Axis,
PlotTheme -> "Web"], {functions, {(#1 &), (First@#2 &)}}], 2]]Out[1]=
