Создайте ячейку для всего, что выше значения X, в гистограмме GGPlot2

Используя ggplot2, я хочу создать гистограмму, в которой все, что выше X, сгруппировано в конечный бин. Например, если бы большая часть моего распределения была между 100 и 200, и я хотел бы разбить по 10, я бы хотел, чтобы все, что выше 200, было бы убрано в «200+».

# create some fake data    
id <- sample(1:100000, 10000, rep=T)
visits <- sample(1:1200,10000, rep=T)

#merge to create a dataframe
df <- data.frame(cbind(id,visits))

#plot the data
hist <- ggplot(df, aes(x=visits)) + geom_histogram(binwidth=50)

Как я могу ограничить ось X, по-прежнему представляя данные, которые я хочу ограничить?