使用封装组合 

绘制随时间变化的从地球到行星的距离，涉及到有单位、时间序列和对数据持续跟踪的关联性. 所有这些对象可以组合且直接绘制，从而用直接的方式获取精美的绘图.

创建在给定日期，地球到一个行星的距离的函数. 涉及到有单位的距离

In[1]:=

X distance[planet_, date_] := PlanetData[planet, EntityProperty["Planet", "DistanceFromEarth", {"Date" -> date}]]

生成2014年从地球到行星的距离的时间序列. 距离使用天文单位.

In[2]:=

X distanceSeries[planet_] := TimeSeries[({#1, distance[planet, #1]} &) /@ DateRange[{2014, 1, 1}, {2014, 12, 31}, "Week"]]

In[3]:=

X mars = distanceSeries["Mars"]

Out[3]=

In[4]:=

X mars[Now]

Out[4]=

在关联性中储存多个行星的距离.

In[5]:=

X planets = AssociationMap[ distanceSeries, {"Mercury", "Venus", "Mars", "Jupiter", "Saturn"}]

Out[5]=

使用自动创建图例绘制距离，从而识别这些行星.

In[6]:=

X DateListPlot[planets, PlotLegends -> "Expressions", FrameLabel -> Automatic, ImageSize -> 400]

Out[6]=