Basically you have two options
scale_x_continuous(limits = c(-5000,5000))or
coord_cartesian(xlim = c(-5000,5000))Where the first removes all data points outside the given range and the second only adjusts the visible area. In most cases you would not see the difference, but if you fit anything to the data it would probably change the fitted values.
You can also use the shorthand function xlim (or ylim), which like the first option removes data points outside of the given range:
+ xlim(-5000,5000)