유성우 데이터
LabelingFunction과 Callout을 결합하여 일정 조건을 충족하는 데이터만 라벨을 붙입니다.
전체 Wolfram 언어 입력 표시하기
In[2]:=
meteorData = MeteorShowerData[All, {"PeakDate", "PeakZHR", "Name"}];
meteorData = DeleteMissing[meteorData, 1, 1];
meteorData = meteorData[[All, ;; 2]] -> meteorData[[All, -1]];
In[3]:=
DateListPlot[meteorData, styles,
FrameLabel -> {"Peak Date", "Peak Frequency"},
PlotLabel -> "Peak Dates and Frequencies of Meteor Showers, 2016",
LabelingFunction -> (If[Last@# > 50,
Callout[Last@Flatten[#3], Above], None] &)]
Out[3]=