Visualice la línea de tiempo de su correo electrónico personal 

Importe datos en los tiempos y categorías de los mensajes de correo electrónico.

In[1]:=

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

Out[1]=

Obtenga la lista de las categorías de mensajes.

In[2]:=

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

Out[2]=

Grafique los números de mensajes por categoría y fecha.

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