r - 列に保存されている色に従ってggplotを色付けする方法

Question

色の名前を含む列が必要で、各データポイントはこれに従って色付けされます。

traffic <- structure(list(Sequence = 1:7, Day = c("2013.03.29", "2013.03.28", "2013.03.27", "2013.03.26", "2013.03.25", "2013.03.24", "2013.03.21"), Performance = c("red", "red", "red", "red", "red", "yellow", "red")), .Names = c("Sequence", "Day", "Performance"), class = "data.frame", row.names = c(NA, -7L))

ggplot(traffic, aes(x=Day)) + 
geom_bar(aes(fill=Performance)) + 
scale_fill_manual(values=c("red","yellow", "green")) 

ただし、この場合、ファイルで使用可能な値に応じて色が切り替わります (3 つすべての場合もあれば、1 つまたは 2 つだけの場合もあります)。私は試した

scale_fill_manual(values=c("red"="red","yellow"="yellow", "green"="green"))

しかし、それは何も描きませんでした。