Eine persönliche Email-Timeline visualisieren 

Importieren Sie die Daten der Eingangs- und Ausgangszeitpunkte und der Kategorien von Emails.

In[1]:=

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

Out[1]=

Erstellen Sie eine Liste aller Emailkategorien.

In[2]:=

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

Out[2]=

Stellen Sie die Anzahl der Emails je nach Kategorie und Datum graphisch dar.

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