How do you add a date scale along the bottom of a list plot?

Questions
,
1

I have a plot of the battles in which Ulysses S. Grant was a commander.
I would like to place the dates of the battles with ScalingFunctions → “Date” for the horizontal axis but for some reason, the dates do not appear correctly. I would like to plot the years and possibly quarters of a year or by months.
Is there a way to make the dates appear in my list plot?

Open in Wolfram Cloud ↗
2

DateListPlot version

DateListPlot[data, Joined -> False, 
 FrameTicks -> {{None, tickLabels}, {Automatic, None}}]

battles_TimeSeries.png
battles_TimeSeries.png507×264 4.85 KB

ordinalScale = 
  AssociationThread[{"Confederate victory", "Inconclusive", 
     "Union strategic victory", "Union victory", 
     "Decisive Union victory"} -> {-1, 0, 1, 2, 3}];
tickLabels = KeyValueMap[List /* Reverse, ordinalScale];
topOutcomes = Query[
    DeleteMissing /* KeySortBy[DateObject[#["StartDate"], "Day"] &],
    First /* (ordinalScale@# &)
    ]@EntityValue[UlyssesSGrantBattles, "OutcomeNotes", 
    "EntityAssociation"];
battleDates = KeyMap[DateObject[#["StartDate"], "Day"] &, topOutcomes];
data = Rule[TimeSeries[battleDates], Keys[topOutcomes]];