Дополнение TimelinePlot графическими метками

Покажите даты выхода фильмов о Гарри Поттере.

In[1]:=

TimelinePlot[ EntityClass["Movie", "HarryPotterFranchise"] -> "ReleaseDate"]

Out[1]=

Используйте плакаты фильмов в качестве меток и графически изобразите их в вертикальной хронологии, расположив самые старые фильмы внизу.

In[2]:=

TimelinePlot[ Rule @@@ EntityValue[ EntityClass["Movie", "HarryPotterFranchise"], {"ReleaseDate", "Image"}], LabelStyle -> 18, PlotLayout -> "ReverseVertical", PlotTheme -> "Business"]

Out[2]=