title: Reduce space between axis and geom
body: <p>I have a plot that looks like this:</p>
  
  <p><img src="https://i.stack.imgur.com/uD5xc.png" alt="enter image description here"></p>
  
  <p>How can I remove the space between the laft edge of the line and the y axis without cutting off my directlabels?</p>
  
  <p>The code:</p>
  
  <pre><code>library(ggplot2)
  library(scales)
  labs &lt;- c("Special Ed., Charter School", 
      "Gen. Ed., Charter School",
      "Special Ed., Public School", 
      "Gen. Ed., Public School")
  
  pot &lt;- data.frame(Engagement = c(643, 793, 590, 724, 735, 928, 863, 662),
      Classroom = rep(rep(c("Special Ed.", "Gen. Ed."), each = 2), 2),
      Gender = factor(rep(c("Male", "Female"), 4), levels = c("Male", "Female")),
      School = rep(c("Charter", "Public"), each = 4), 
      ID = factor(rep(1:4, each = 2)),
      labs = factor(rep(labs, each=2), levels=labs)
      )
  
  library(directlabels)
  
  xout &lt;- ggplot(pot, aes(y = Engagement, x = Gender, group = ID)) + 
      geom_line(aes(color=labs), size=2) + theme_classic() +
      scale_x_discrete(expand = c(.1, .3)) +
      scale_color_hue(l=40) +
      theme(text = element_text(size=22))   
  
  direct.label(xout, list('last.qp', cex=1.35))
  </code></pre>