title: wrapping long geom_text labels
body: <p>I have an issue with wrapping long texts in ggplot2. Similar question was asked here <a href="https://stackoverflow.com/questions/25106508/ggplot2-is-there-an-easy-way-to-wrap-annotation-text?noredirect=1&amp;lq=1">ggplot2 is there an easy way to wrap annotation text?</a></p>
  
  <p>My question is if we have the text like this </p>
  
  <pre><code>my_label &lt;- "Some_arbitrarily_larger_text"
  </code></pre>
  
  <p>How can we shrink it using the same method ?</p>
  
  <pre><code>wrapper &lt;- function(x, ...) paste(strwrap(x, ...), collapse = "\n")
  
  library(ggplot2)
  ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()+
  annotate("text", x = 4, y = 25, label = wrapper(my_label, width = 5))
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/ObYsY.png" rel="noreferrer"><img src="https://i.stack.imgur.com/ObYsY.png" alt="enter image description here"></a></p>
  
  <p>It seems not working for this case!</p>