title: Combination Graphs in R's ggplot2
body: <p>I'm trying to create a combination graph using ggplot2. I would like the graph to look similar to the one below but I don't want the secondary axis, nor do I want the &quot;series 2&quot; showing up in the legend.</p>
  <p>Right now I can create a combination graph, see code and data example below, but the issue I'm running into is that my y-axis splits into two different units (0000s and %). I would like to ask for any suggestions that would allow me to display my graph with the y axis reflecting just the <code>Score</code> values and the <code>WARate</code> value to show up as values below the graphed line, within the plot area.</p>
  <pre><code>df &lt;- data.frame(
    Type=c(&quot;A&quot;,&quot;A&quot;,&quot;A&quot;,&quot;B&quot;,&quot;B&quot;,&quot;B&quot;),
    Quarter=c(&quot;Q1&quot;,&quot;Q2&quot;,&quot;Q3&quot;,&quot;Q1&quot;,&quot;Q2&quot;,&quot;Q3&quot;),
    Score=c(&quot;1360&quot;,&quot;1330&quot;,&quot;1345&quot;,&quot;1200&quot;,&quot;1215&quot;,&quot;1230&quot;),
    WARate=c('4%','3.41%','3.39%','4%','3.41%','3.39%')
  )
      
  df %&gt;% 
    group_by((Quarter)) %&gt;%
    ggplot(aes(x=(Quarter), y=Score,fill=Type)) +
      geom_bar(stat = &quot;identity&quot;) +
      geom_text(aes(label = format(round(stat(y),0),big.mark=&quot;,&quot;), group = Quarter), 
          stat = 'summary', fun = sum, vjust = -.25) +
      geom_line(aes(x=Quarter,y=WARate,group = 1))
  </code></pre>
  <p><a href="https://i.stack.imgur.com/Iv17C.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/Iv17C.png" alt="enter image description here" /></a></p>