SetAttributes[hshift, HoldAll]
hshift[func_, var_, a_] :=
Plot[func, {var, -4, 4},
Ticks -> {Function[{min, max},
Join[Table[{i - a, Style[i, 12], {.0125, 0}}, {i, Ceiling[min],
Floor[max]}],
Table[{j + .5, , {.0075, 0}}, {j, Round[min], Round[max - 1],
1}]]], Automatic}]