如何更改formattable中的颜色渐变？

我正在创建以下formattable：

我已经在Var1上设置了梯度，所以值越高，它就越红。我想知道是否有可能改变它，使它变得越来越绿色的价值越高。我喜欢它的一切，因为它是，我只想梯度从黑色到绿色，而不是黑色到红色。我尝试过在

背景色

命令中调整数字，但似乎无法正确执行。有可能解决这个问题吗？有没有关于数字颜色渐变的指南，也许我还没有

library(formattable)

ex <- structure(list(Group = 1:3, Var1 = c(0, 0.4, 0.8)), class = "data.frame", row.names = c(NA, 
-3L))

ex <- formattable(ex, 
                  align = c("l","l", "c", "c", "c", "c"),
                  list(Var1 = formatter("span",
                                                  style = x ~ style(display = "block",
                                                                    "border-radius" = "4px",
                                                                    "padding-right" = "4px",
                                                                    color = "white",
                                                                    "background-color" = rgb(ex$Var1/max(ex$Var1), 0, 0, 1)))))

库（格式化表）
ex您可以使用
csscolor（gradient（））
-这也是
formattable
的
color\u tile
函数中使用的函数

ex <- formattable(ex, 
                  align = c("l","l", "c", "c", "c", "c"),
                  list(Var1 = formatter("span",
                                        style = x ~ style(display = "block",
                                                          "border-radius" = "4px",
                                                          "padding-right" = "4px",
                                                          color = "white",
                                                          "background-color" = csscolor(gradient(as.numeric(x), "black", "green"))))))

ex

ex