'How to create a distance between the geom text and the bar

I have a following problem. I want increase a padding bettween the text and the bar. But at same time, the value of text must be in the box of ggplot2 device.

Reproducible examples:

diamonds %>% 
  group_by(color) %>% 
  count() %>%
    ggplot(aes(color, y = n)) + 
    geom_bar(stat = "identity") + 
      geom_text(
        aes(label = n), 
            vjust = 0.5, 
            hjust = "inward") +
  coord_flip()


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source