combining Histogram bars in R

I'm trying to make a histogram using basic R. The histogram is doing a good job representing the data. However, I want to combine the few bars on the right-side(from 300,000+)enter image description here into one bar to represent their values.

hist(TotalIncomeRural$D21, breaks ="sturges", labels = TRUE,xaxt='n', ylim=c(0,1350), col = "red") axis(side=1, at=c(seq(0,1500000,100000)))

any help is very much appreciated.