条形图颜色按R中的值

Question

假设我在R中有一个条形图：

set.seed(123)
x<-rnorm(10)
barplot(x)

我想要的是用x<=0填充蓝色条，否则填充红色。我一直在尝试barplot和ggplot2（我希望在可能的情况下），但尚未找到更好的解决方案。如果填充的颜色可以从蓝色（最小）逐渐变为红色（最大）。

Answer 1

您可以使用ggplot：

执行此操作

ggplot(data.frame(Index = 1:length(x), value = x), aes(Index, value, fill = value >= 0)) + geom_bar(stat = "identity")