title: geom_point and geom_col fill color change and legend label change
body: <p>My dataframe looks something like this:</p>
  
  <pre><code>df = data.frame(
    measure = c("Measure A","Measure B","Measure C"),
    overall = c(9, 5, 11),
    company = c(4,6,3)
  )
  </code></pre>
  
  <p>I am trying to plot bars for the company, and using geom_point, "lines" for the overall.  For some reason, the company color fill and label for the legend doesn't change even though my code specifies it:</p>
  
  <pre><code>ggplot(df, aes(measure)) + geom_col(aes(y=company, fill="company")) + geom_point(aes(y=overall, color="overall"), size=8, shape=124) +
    scale_color_manual(values=c("company" = "yellow", "overall"="blue"),labels=c("company" = "Your Company", "overall"= "Overall Benchmark")) +
    coord_flip()+ guides(size=FALSE) + theme(legend.box="horizontal",legend.key=element_blank(), legend.title=element_blank(),legend.position="top")
  </code></pre>
  
  <p>The bars stay red and the legend reads company regardless.  Is there a way to fix this?</p>
  
  <p><a href="https://i.stack.imgur.com/S8vu8.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/S8vu8.png" alt="enter image description here"></a></p>