title: Remove shape from legend of combined geom_line() and geom_pont()
body: <p>I want to create a graph of geom_line() coloured by a variable (Var1) then plot geom_point() with shapes according to a different variable (Var2) with the same colours as geom_line().</p>
  
  <p>After reading a lot about this but not being able to find anything that I could interpret as being the same issue I have attempted the following:</p>
  
  <pre><code> ggplot(data, aes(X, Y)) +
   geom_line(aes(color = Var1)) +
   geom_point(data = subset(data, Var2 != 0), aes(shape = Var2, colour = Var1), size = 3) + 
   scale_color_manual(values=c("#7CAE00", "#00BFC4", "#000000", "#C77CFF")) +
   scale_x_continuous(breaks=seq(0,30,5)) +
   theme_bw()
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/kqzZP.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/kqzZP.png" alt="enter image description here"></a></p>
  
  <p>Which results in the above. The issue with this graph is that the second legend has both IDs are circles when one is a circle and one is a triangle. I would ideally like it to just be a coloured line with no shapes at all.</p>
  
  <p>I've also tried this:</p>
  
  <pre><code> ggplot(data, aes(X, Y)) +
   geom_line(aes(color = Var1)) +
   geom_point(data = subset(data, Var2 != 0), aes(shape = Var2), size = 3) + 
   scale_color_manual(values=c("#7CAE00", "#00BFC4", "#000000", "#C77CFF")) +
   scale_x_continuous(breaks=seq(0,30,5)) +
   theme_bw()  
  </code></pre>
  
  <p><a href="https://i.stack.imgur.com/N2JWK.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/N2JWK.png" alt="enter image description here"></a></p>
  
  <p>This issue with this graph is that the shapes are not filled in by colour in the graph.</p>
  
  <p>This is my data.</p>
  
  <pre><code>dput(data)
  structure(list(X = c(0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 
  10L, 11L, 12L, 13L, 14L, 15L, 0L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 
  8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 19L, 20L, 
  21L, 22L, 23L, 24L), Y = c(1L, 1L, 1L, 2L, 4L, 13L, 18L, 19L, 
  21L, 24L, 34L, 43L, 70L, 90L, 129L, 169L, 1L, 3L, 3L, 3L, 3L, 
  4L, 21L, 79L, 157L, 229L, 323L, 470L, 655L, 889L, 1128L, 1701L, 
  2036L, 2502L, 3089L, 3858L, 4636L, 5883L, 7375L, 9172L, 10149L
  ), Var1 = structure(c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
  2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
  3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("", 
  "ID1", "ID2"), class = "factor"), Var2 = structure(c(2L, 2L, 
  2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 
  2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
  2L, 2L, 2L, 2L, 4L, 2L, 2L), .Label = c("", "0", "Point1", "Point2"
  ), class = "factor")), row.names = c(NA, -41L), class = "data.frame")
  </code></pre>