如何根据数字阈值在r中绘制条形图？

Question

我有一个如下的条形图。现在我希望列的颜色如果低于0则为红色，如果高于0则为绿色。如何在R中执行此操作？

Answer 1

我刚刚制作了另一个变量，将值分类为零以上：

library(ggplot2)
set.seed(1839)
df <- data.frame(x=factor(1:5), y=rnorm(5,0,2))
df$zero <- factor(ifelse(df$y>0, 1, 0))
ggplot(df, aes(x=x, y=y, fill=zero)) +
  geom_bar(stat="identity") +
  scale_fill_manual(values=c("red", "green"), guide=FALSE)