Visualize eventos no tempo com TimelinePlot
De forma padrão, as linhas de tempo irão se alinhar com grupos de legendas.
In[1]:=

TimelinePlot[(# ->
Show[IconData["MoonPhase", MoonPhase[#]], ImageSize -> 50]) & /@
DateRange[{2016, 1, 1}, {2016, 1, 8}, "Day"], ImageSize -> 400]Out[1]=

Distribua as legendas horizontalmente.
In[2]:=

TimelinePlot[(# ->
Show[IconData["MoonPhase", MoonPhase[#]], ImageSize -> 40]) & /@
DateRange[{2016, 1, 1}, {2016, 1, 8}, "Day"],
PlotLayout -> "Grouped"]Out[2]=

A colocação das legendas se ajustarão automaticamente ao layout da linha do tempo.
In[3]:=

TimelinePlot[(# ->
Show[IconData["MoonPhase", MoonPhase[#]], ImageSize -> 50]) & /@
DateRange[{2016, 1, 1}, {2016, 1, 8}, "Day"],
PlotLayout -> "ReverseVertical", ImageSize -> 400, AspectRatio -> 1]Out[3]=
