title: ggplot customize legend for geom_point shapes and remove background
body: <p>I have data that looks something like this:</p>
  
  <pre><code>df = data.frame(
    measure = c("Measure A","Measure B","Measure C","Measure D",
                "Measure E","Measure F","Measure G"),
    overall = c(56, 78, 19, 87, 45, 51, 19),
    company = c(45, 89, 18, 98, 33, 55, 4),
    company_p = c(32, 65, 5, 56, 12, 45, 10)
  )
  </code></pre>
  
  <p>Using this code:</p>
  
  <pre><code>ggplot(df %&gt;% 
           mutate(fill = ifelse(overall &gt; company, " Below Overall  "," Above Overall  ")), 
         aes(measure)) + 
    geom_col(aes(y=company, fill= fill)) + 
    geom_point(aes(y=overall, color="overall"), size=6, shape=124) + 
    geom_point(aes(y=company_p, color="company_p"), size=2, shape=19) +
    coord_flip() + 
    scale_color_manual(values=c("red4","grey3"),labels=c("Company Last Year","Overall")) + 
    scale_fill_manual(values=c(" Below Overall  "="lightpink2",
                               " Above Overall  "="lightblue2")) +
    theme(legend.key=element_blank())
  </code></pre>
  
  <p>I get a graph that looks like this:</p>
  
  <p><a href="https://i.stack.imgur.com/BJi6J.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/BJi6J.png" alt="enter image description here"></a></p>
  
  <p>How do I set the legend so that the company_p values, or 'Company Last Year' on the legend looks like the corresponding shape, while the Overall looks like a black line?</p>
  
  <p>I tried linking the shape type to the legend like this:</p>
  
  <pre><code>ggplot(df %&gt;% 
           mutate(fill = ifelse(overall &gt; company, " Below Overall  "," Above Overall  ")), 
         aes(measure)) + 
    geom_col(aes(y=company, fill= fill)) + 
    geom_point(aes(y=overall, color="overall"), size=6, shape="overall") + 
    geom_point(aes(y=company_p, color="company_p"), size=2, shape="company_p") +
    coord_flip() + 
    scale_shape_manual(values=c(overall=124, company_p=19)) +
    scale_color_manual(values=c("red4","grey3"),labels=c("Company Last Year","Overall")) + 
    scale_fill_manual(values=c(" Below Overall  "="lightpink2",
                               " Above Overall  "="lightblue2")) +
    theme(legend.key=element_blank())
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/9lzZ8.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/9lzZ8.png" alt="enter image description here"></a></p>
  
  <p>But the shape symbols don't correlate to the reference (124 is |, 19 is a circle) and it seems the shapes are together in the legend, not separate.</p>