Visualize uma linha do tempo de um e-mail pessoal 

Importe dados das datas e categorias de mensagens de e-mail.

In[1]:=

X data = SemanticImport["ExampleData/dates-categories"]

Out[1]=

Obtenha uma lista de todas as categorias de mensagem.

In[2]:=

X categories = Union[Normal[data][[All, 2]]]

Out[2]=

Projete graficamente os números de mensagens por categoria e data.

In[3]:=

X DateListPlot[ With[{category = #}, {#[[1]], Length[#]} & /@ GatherBy[ Normal[data[Select[#[[2]] === category &]][All, 1]], (# /@ {"Month", "Year"}) &] ] & /@ categories, PlotRange -> All, PlotLegends -> categories]

Out[3]=