在使用geom_point和geom_line时，如何仅显示geom_point的图例？

Question

我发现图例中的线条和点的组合有点混乱并且难以阅读，尤其是当彩色报告以黑白打印时。我想做一个具有不同形状点的折线图，但只是让图例显示没有通过它们的线的点形状。

一些数据和代码：

library (tidyr)
library (ggplot2)

year <- c(2010, 2011, 2012, 2013, 2014)
x <- c(50, 49, 50, 53, 52)
y <- c(33, 33, 32, 30, 26)

df <- data.frame (year, x, y) %>%
  gather (group, value, x:y)

ggplot (df, aes (x = year, y = value, colour = group)) + geom_line() + 
  geom_line(aes(group=group), size=1.5) + 
  geom_point(size=6, aes (shape = group)) +
  scale_shape_manual(values=c(15, 16, 17, 18)) 

给我这个：

我希望传奇看起来更像这样：