【发布时间】:2014-04-07 21:13:21
【问题描述】:
我有这段代码来创建如下所示的图表。我在之前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 非常陌生,无法弄清楚!提前谢谢了。
【问题讨论】: