(* assume `events` is unchanged *)rule[e_] := Tooltip[e["Date"], Pane[e["Full"], 520]] -> Style[e["Short"], FontFamily -> "Helvetica", FontSize -> 13];otherRules = rule /@ Select[events, ! TrueQ @ Lookup[#, "Nobel"] &];nobelRules = rule /@ Select[events, TrueQ @ Lookup[#, "Nobel"] &];TimelinePlot[ {otherRules, nobelRules}, PlotLayout -> "Vertical", Frame -> True, GridLines -> None, GridLinesStyle -> Directive[GrayLevel[.9]], BaseStyle -> Directive[13,FontFamily -> "Helvetica"], PlotLegends -> Placed[{"Milestones", "Nobel-involved"}, {Right, Top}], ImageSize -> 1200, AspectRatio->2, ImagePadding -> {{120, 120}, {40, 40}}]