使用基于数字范围的颜色（包括负值和NAs（R））绘制国家/地区的状态

我试图根据包含负数和NA的数字来给一个国家的州着色。 我把我的示例代码放在下面。“数据”基本上包含所有坐标和多边形值

Waste.Balance<-c(NA,11654.9,-6265.6,-7849.5,-9355.1,NA,6341.6,NA,
NA,-4930.6,-144.6,-1378.7,8506.7,2218.8,-7944.6,-7065.0,
-194.1,13027.0,NA,-137.3,14960.0,-8.4,-495.2,-531.4,
-525.9,NA,-10554.9,-35.2,11919.1,24824.9,-895.7,19319.0,
-72.2,-1839.9,-47247.7,-27.2,7524.1)

 ggplot(data = data) +
      geom_sf(colour="#999999", aes(fill='Waste.Balance'))+
      scale_fill_gradient(low="#ffffff", high = "#ff2015")+
      xlab("")+ylab("")+
      theme_bw()+
      theme(panel.grid = element_blank(),
            axis.text = element_blank(),
            axis.ticks = element_blank(),
            panel.border = element_blank(),
            legend.position = "bottom")

---

Waste.BalanceTry
fill=Waste.Balance
不加引号。天哪，它成功了！非常感谢你。如果我足够灵活，我会踢自己！哈哈