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")) 

但是，在这种情况下，颜色会根据文件中可用的值进行切换（有时三个都可用，有时只有一个或两个）。我试过了

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

但这并没有画出任何东西。