Here is a simple scenario
data = {{-0.5, 0.2}, {0.7, 0.1}, {1.4, -0.1}};
L0 = ListPlot[data, PlotStyle -> {Black, PointSize[Large]},
Frame -> True, AspectRatio -> 1, PlotRange -> {{-1.5, 2}, {-1, 1}}]
which gives
My question is very simple: for the given plot range (it should not be changed) how can I get the two axes divisions (blue and red) equal in size?