How can I delete tick labels -2 and 2 so that the values -1.8 and 1.8 doesn't overlap with each other; i.e., I want to keep the ticks at -2 and 2, but not their labels.
This is the code I am using:
plot = Plot[{-6 x - x^3/3 + 10 ArcTan[x]}, {x, -2.2, 2.2}]
ticks = Charting`FindTicks[{0, 1}, {0, 1}] @@ PlotRange[plot][[1]];
ticks2 = Charting`FindTicks[{0, 1}, {0, 1}] @@ PlotRange[plot][[2]];
newticks = {{0.72, 0.72}, {-0.72, -0.72}}~Join~ticks;
newticks2 = {{1.80, 1.80}, {-1.80, -1.80}}~Join~ticks2;
Show[plot, Ticks -> {newticks, newticks2}]