title: ggplot2 label out of the graph in likert scale
body: <p>I have a ggplot made of a likert-scale using the package likert by jason.bryer (<a href="http://jason.bryer.org/likert/" rel="nofollow noreferrer">see</a>). If you run the code with the original data 
  <a href="https://dl.dropboxusercontent.com/u/109495328/rawdata.csv" rel="nofollow noreferrer">here</a>, then my extrem label (in the far right) is not in the graph anymore (see picture below). How can I fix it?</p>
  
  <p><img src="https://i.stack.imgur.com/UvCdF.png" alt="enter image description here"></p>
  
  <p>The code I use:</p>
  
  <pre><code>library(ggplot2)
  library(likert)
  library(gridExtra)
  competence_bachelor &lt;- rawdata[, substr(names(rawdata), 1, 4) == "Q002"]
  competence_bachelor &lt;- rename(competence_bachelor, c(Q002_01 = "Ability to propose new ideas and new solutions", Q002_02 = "Ability to present in public", Q002_03 = "Ability to use a computer", Q002_04 = "Ability to use the Internet", Q002_05 = "Ability to use statistical programs", Q002_06 = "Ability to write reports", Q002_07 = "Knowledge of economic concepts", Q002_08 = "Knowledge of legal concepts", Q002_09 = "Ability to understand the other's point of view", Q002_10 = "Ability to rapidly acquire new knowledge", Q002_11 = "Ability to team work", Q002_12 = "Ability to do analysis with quantitative methods", Q002_13 = "Ability to do analysis with qualitative methods", Q002_14 = "Knowledge of English", Q002_15 = "Knowledge of another foreign language"))
  i &lt;- 1
  while(i&lt;=ncol(competence_bachelor)) {
    competence_bachelor[[i]] = factor(competence_bachelor[[i]],labels = c("insignificant", "2", "3", "4", "5", "6", "7", "8", "9", "very relevant"), levels=c(1:10))
    i &lt;- i + 1
  }
  competence_bachelor_plot &lt;- likert(competence_bachelor)
  p &lt;- plot(competence_bachelor_plot, centered = FALSE, include.histogram = FALSE) + ggtitle("How do you rate your skills gained with the Bachelor's?*") + theme(axis.text.y = element_text(colour = "black"), axis.text.x = element_text(colour = "black"))
  g &lt;- arrangeGrob(p, sub = textGrob("*Order of questions was randomized and only extremes labeled in online questionaire.", x = 0, hjust = -0.1, vjust=0.1, gp = gpar(fontface = "italic", fontsize = 10)))
  print(p)
  ggsave((filename="competence_bachelor.pdf"), scale = 1, width = par("din")[1], height = par("din")[2], units = c("in", "cm", "mm"), dpi = 300, limitsize = TRUE, g)
  </code></pre>