Overlapping with geom_text, how to avoid?

Question

I\'m trying to do a strange plot.. Here is a sample of my data:

structure(list(x = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 53L, 
53L, 53L, 53L, 53L, 53L, 53L, 5