ggplot2手动为每个geom_point添加图例

Question

我使用2个独立的数据集创建了一个图，这样我就可以创建不同的错误栏。第一个数据集的误差条仅下降，而第二个数据集的误差条仅上升。这可以防止图中不必要的重叠。我还为其中一组使用了复合形状。

我想根据这些形状（不是颜色）创建一个图例，但我似乎无法弄明白。这是情节代码。

p <-ggplot()
p + geom_point(data=df.figure.1a, aes(x=Hour, y=Mean), shape=5, size=4) +
    geom_point(data=df.figure.1a, aes(x=Hour, y=Mean), shape=18, size=3) +
    geom_errorbar(data=df.figure.1a, aes(x=Hour, y=Mean, ymin = Mean - SD, ymax = Mean), size=0.7, width = 0.4) +
    geom_point(data=df.figure.1b, aes(x=Hour, y=Mean), shape=17, size=4) +
    geom_errorbar(data=df.figure.1b, aes(x=Hour, y=Mean, ymin = Mean, ymax = Mean + SD), size=0.7, width = 0.4)