如何使用第三个变量scale_fill_gradient我的ggplot条形图？

Question

我制作了一个条形图，用于绘制沿x轴的国家和沿y轴的成本。我想根据国家HDI得分用颜色填充垃圾箱。最高HDI得分=白色，最低HDI得分=红色。

到目前为止，这是我的代码，我得到了一个很好的情节，但没有渐变填充？

ggplot(data=dat, aes(x=reorder(dat$Country, -dat$COE_millions), y=dat$COE_millions), fill=dat$HDI) +
  geom_bar(stat="identity")+
  theme(
    axis.text.x = element_text(size=5, colour="black", angle=90),
    axis.text.y = element_text(size=12, colour="black"),
    axis.title.x = element_text(size=14, colour="black", vjust=-0.1),
    axis.title.y = element_text(size=14, colour="black", vjust=+0.35)
  )+
  scale_fill_gradient2(low="snow1", mid="red", high="red4", guide="colorbar", space = "Lab", midpoint=0.6)

我的数据就像这样;

| Country | Cost   | HDI   |
| USA     | 100    | 0.9   |
| Can     | 60     | 0.8   |
| Aus     | 50     | 0.7   |