有没有办法改变图例中点的形状，使其与图相对应

Question

图例中的形状有问题，我希望它们与图中的形状相对应，但是我得到的只是一个形状。注意：手动更改形状不是解决方案，我的问题不只是图例。

我尝试使用scale_shape_manual手动更改

ggplot(final, aes(wavelength, colour= Sites)) +  
  geom_line(aes(y = transmission, colour = Q)) +
  geom_point(aes(y = transmission, colour = Q), shape = 17, size = 1) +
  geom_line(aes(y = transmission2, colour = L)) + 
  geom_point(aes(y = transmission2, colour = L), shape = 25, size = 0.50) + 
  geom_line(aes(y = transmission3, colour = f)) + 
  geom_point(aes(y = transmission3, colour = f), shape = 23, size = 0.50)