如何为几列添加ggplot2图例？

Question

我有以下数据框：

，我正在尝试为列添加geom_point：radiopred，tvpred，newsprepred和allpred。但是我需要添加图例以区分4列中的点。

  ggplot() +
    geom_point(mapping=aes(x=Sales,y=allpred), colour='blue') +
    geom_point(mapping=aes(x=Sales,y=radiopred), colour='red') +
    geom_point(mapping=aes(x=Sales,y=tvpred), colour='green') +
    geom_point(mapping=aes(x=Sales,y=newspaperpred), colour='purple')

只是想念传说。