使用ggplot2更改条形图中特定条的颜色

Question

我有这段代码来创建如下所示的图形。 我在上一个问题的答案中找到了大部分代码，在该问题中，图形与我的图形非常相似（在页面底部）。

> x = ggplot(df, aes(x=Year, y=NAO_Index, width=.8)) +
geom_bar(stat="identity", aes(fill=NAO_Index>0), position='identity') +
theme_bw() + scale_fill_discrete(guide='none') +
ylab("NAO Index") +
ggtitle("NAO Index between 1860 and 2050") +
scale_x_continuous(breaks=c(seq(1860,2050,10)))

如何调整此值，以使NAO指数为正的条形（即当前为蓝色）变为红色，而其色度低于蓝色？

我敢肯定这可能是一个简单的解决方案，但我对R还是很陌生，无法解决！ 提前谢谢了。

Answer 1

使用类似

scale_fill_manual(values=c("blue", "red"), guide=FALSE)

代替

scale_fill_discrete(guide='none')