Dados de chuvas de meteóros: Novos Recursos do Wolfram Language 11

Dados de chuvas de meteóros

Combine LabelingFunction e Callout para colocar anotações apenas em dados em determinadas condições.

mostre o input completo da Wolfram Language

In[1]:=

styles = {Joined -> False, Filling -> Bottom, FillingStyle -> Thick, 
   PlotTheme -> "SingleAxis", PlotRange -> All, PlotStyle -> Yellow, 
   LabelStyle -> White, Background -> Black, ImageSize -> 550};

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]=