getPlotTicksObjects[{{xmin_, xmax_}, {ymin_, ymax_}}, {x0_, y0_}] :=
Module[{xbase, ybase, ends, xdiff, ydiff},
xbase = Charting`ScaledTicks[{Identity, Identity}][xmin, xmax, 25];
ybase =
Rest@Charting`ScaledTicks[{Identity, Identity}][ymin, ymax, 25];
{xbase, ybase} =
MapIndexed[
If[Mod[#2[[1]], 5] == 4,
ReplacePart[#, 3 -> {2, 1}*#[[3]]],
ReplacePart[#, 2 -> ""]
] &,
#
] & /@ {xbase, ybase};
xdiff = (xmax - xmin);
ydiff = (ymax - ymin);