Изменить пределы x с процентной шкалой в гистограмме ggplot

Я пытаюсь построить гистограмму. Я хочу установить ограничение по оси X от 50% до 60%.

tbl <- tibble(x = runif(n = 100, min = 53, max = 58))

ggplot(tbl, 
       aes(x = x)) + 
  geom_histogram(bins = 50) + 
  theme_bw() + 
  scale_x_continuous(labels = scales::percent_format(scale = 1, 
                                                     limits = c(50, 60)))