补充：在一张图中，有点有线。现在线的legend可以标出，但点的如何标出。

x = 1:5
y1 = 2:6
y2 = 3:7
data = data.frame(x, y1, y2)
p = ggplot()
p + geom_line(data = data, aes(x = x, y = y1, color = 'y1')) + geom_point(data = data, aes(x = x, y = y2, color = 'y2'))