Hi Jos,
Sorry for late reply. Have a look at this.
timelineData = <|
"Rock Around the Clock" -> "1954-05-20",
"All Along the Watchtower" -> "1967-12-07",
"Sultans of Swing" -> "1978-05-19"
|>;
TimelinePlot[timelineData,
AspectRatio -> 1/8,
Ticks -> {Values[timelineData],
Automatic},(*restrict the ticks to just the dates*)
DateTicksFormat -> {"DayShort", " ", "MonthNameShort", " ",
"Year"},(*format the dates*)
Spacings -> {1, 52, 34},
BaseStyle -> {FontFamily -> "Futura", FontColor -> Black,
FontSize -> 11},
LabelStyle -> {FontFamily -> "Futura", FontColor -> Black,
FontSize -> 11},
PlotLabel ->
Style["RECORD RELEASE", FontFamily -> "Futura", FontSize -> 14,
FontColor -> Black], ImageSize -> 860]
