Create a Timeline

Get a list of example historical events using EntityValue.

In[1]:=

events = EntityValue["HistoricalEvent", "SampleEntities"]

Out[1]=

Create a timeline of various historical events using TimelinePlot.

In[2]:=

TimelinePlot[List /@ events, PlotStyle -> AbsoluteThickness[2], PlotTheme -> "Web", Background -> LightGray, PlotRange -> {{{-200}, {5000}}, All}]

Out[2]=