ggplot2 if语句的条件颜色

Question

我绘制了条形图：

使用此代码：

qp  <- ggplot(data=RiskData, aes(x=MachineName, y=risk,)) + geom_bar(stat="identity")
qp + theme(axis.text.x = element_text(angle = 90))

我想要做的是根据风险为每个单独的酒吧着色。即值介于99和100之间为红色。值介于50到98之间为黄色，绿色介于0到49之间。我知道如何使用正常绘图而不是ggplot2。在正常的情节中，我会使用

的内容

col = ifelse(......)

我试过这个：

 qp  <- ggplot(data=RiskData, aes(x=MachineName, y=risk,
                               colour = ifelse(risk>70,"red","green"))) + geom_bar(stat="identity")
  qp + theme(axis.text.x = element_text(angle = 90))

但是我得到了这个奇怪的结果......

然后尝试填充而不是颜色：

由于

A   70
B   10
C   60
D   75
E   60
F   50
G   45
H   60
I   10
J   10
K   50
L   50
M   90
N   20
O   25
P   14
Q   56
R   64
S   24
T   30
U   20
V   97
W   25
X   41
Y   30
Z   10
A1  97
B1  85
C1  70
D1  70
E1  20
F1  100
G1  20
H1  20
I1  80
J1  20
K1  50