title: Wordcloud is cropping text
body: <p>I am using twitter API to generate sentiments. I am trying to generate a word-cloud based on tweets. </p>
  
  <p>Here is my code to generate a wordcloud </p>
  
  <pre><code>wordcloud(clean.tweets, random.order=F,max.words=80, col=rainbow(50), scale=c(3.5,1))
  </code></pre>
  
  <p>Result for this:</p>
  
  <p><a href="https://i.stack.imgur.com/BAfJE.png" rel="noreferrer"><img src="https://i.stack.imgur.com/BAfJE.png" alt="enter image description here"></a></p>
  
  <p>I also tried this:</p>
  
  <pre><code>pal &lt;- brewer.pal(8,"Dark2")
  
  wordcloud(clean.tweets,min.freq = 125,max.words = Inf,random.order  = TRUE,colors = pal)
  </code></pre>
  
  <p>Result for this:</p>
  
  <p><a href="https://i.stack.imgur.com/7d9bT.png" rel="noreferrer"><img src="https://i.stack.imgur.com/7d9bT.png" alt="enter image description here"></a></p>
  
  <p>Am I missing something?</p>
  
  <p>This is how I am getting and cleaning tweets:</p>
  
  <pre><code>#downloading tweets
  tweets &lt;- searchTwitter("#hanshtag",n = 5000, lang = "en",resultType = "recent")
  # removing re tweets 
  no_retweets &lt;- strip_retweets(tweets , strip_manual = TRUE)
  
  #converts to data frame
  df &lt;- do.call("rbind", lapply(no_retweets , as.data.frame))
  
  #remove odd characters
  df$text &lt;- sapply(df$text,function(row) iconv(row, "latin1", "ASCII", sub="")) #remove emoticon
  df$text = gsub("(f|ht)tp(s?)://(.*)[.][a-z]+", "", df$text) #remove URL
  sample &lt;- df$text
  
  
      # Cleaning Tweets 
      sum_txt1 &lt;- gsub("(RT|via)((?:\\b\\w*@\\w+)+)","",sample)
      sum_txt2 &lt;- gsub("http[^[:blank:]]+","",sum_txt1)
      sum_tx3 &lt;- gsub("@\\w+","",sum_txt2)
      sum_tx4 &lt;- gsub("[[:punct:]]"," ", sum_tx3)
      sum_tex5 &lt;- gsub("[^[:alnum:]]", " ", sum_tx4)
      sum_tx6 &lt;- gsub("RT  ","", sum_tex5)
  
      # WordCloud
  
      # data frame is not good for text convert it corpus
      corpus &lt;- Corpus(VectorSource(sum_tx6))
      clean.tweets&lt;- tm_map(corpus , content_transformer(tolower)) #converting everything to lower cases
      clean.tweets&lt;- tm_map(guj_clean,removeWords, stopwords("english")) #stopword are words like of, the, a, as..
      clean.tweets&lt;- tm_map(guj_clean, removeNumbers)
      clean.tweets&lt;- tm_map(guj_clean, stripWhitespace)
  </code></pre>
  
  <p>Thanks in advance!</p>