I have this data and I want to plot it with six dates on the x-axis. The first tick should be the first data points date minus two days and the last tick should be the last data points date plus two days. New information may be entered so I cannot explicitly set the tick marks I want. They must be recalculated every time a new plot is generated.
Thank you
data = {{DateObject[{2021, 1, 21}], 201.8},
{DateObject[{2021, 1, 22}], 203.6},
{DateObject[{2021, 1, 25}], 202.5},
{DateObject[{2021, 1, 26}], 201.4},
{DateObject[{2021, 1, 27}], 201.1},
{DateObject[{2021, 1, 29}], 201.6},
{DateObject[{2021, 1, 30}], 201.1},
{DateObject[{2021, 1, 31}], 200.7},
{DateObject[{2021, 2, 1}], 200.1}};
DateListPlot[data, Joined -> False, LabelStyle -> {12, GrayLevel[0]}, DateTicksFormat -> {"MonthShort", "/", "Day"}]