Thanks Jonathan for sharing this approach with us. However on running the code I get a pink graph for solution (2) with the error messages:
MapAt::argrx: MapAt called with 12 arguments; 3 arguments are expected.
MapAt::partw: Part {All,2} of MapAt[trFs$476065[[i]][{#1,0}][[1]]&,Charting`DateTicksFunction[None,{Ticks->{{3.81848*10^9,3.81849*10^9,3.8185*10^9,3.81851*10^9}},TickLabels->{{Rotate[21/1/1 10:00,Times[<<2>>]],Rotate[21/1/1 12:00,Times[<<2>>]],Rotate[21/1/1 14:00,Times[<<2>>]],Rotate[21/1/1 16:00,Times[<<2>>]]}},TickLengths->{Automatic},TicksStyle->{Automatic}}],{All,1},<<5>>,{All,1},trFs$476065[[i]][{#1,0}][[1]]&,<<2>>] does not exist.
