ggplot2 geom_point按列的值更改颜色

Question

我正在使用ggplot2来制作线图（y =收入总和，x =日期），其中积分代表销售额（y =线图的交点，x =促销日期）。

我有另一个代表促销类型的专栏，我想根据此专栏的不同值更改分数的颜色。

p1<- ggplot(df,aes(x= date,y = income))

p1 + geom_line(col="red") + 
  geom_point(aes(x=df$promotiondate, y=df$income))+
  scale_color_manual(name="promotioncode", values = c("0"="white","P_1##1##1"="red","P_120##1##1"="blue","P_21##1##1"="green", "P_30##1##1"="yellow", "P_50##1##1"="purple", "P_66##1##1"="black"), labels=c("0","P_1##1##1","P_120##1##1","P_21##1##1", "P_30##1##1", "P_50##1##1", "P_66##1##1"))

这是我获得的

正如您所看到的，所有点都是黑色的。

如何根据列的促销代码值使颜色变化？

提前致谢