프로그램을 사용한 점 라벨링

같은 데이터를 다른 라벨 함수로 플롯합니다.

In[1]:=

Grid[Partition[ Table[ListLinePlot[Prime[Range[10]], LabelingFunction -> functions, ImageSize -> 250, Filling -> Axis, PlotTheme -> "Web"], {functions, {(#1 &), (First@#2 &)}}], 2]]

Out[1]=