创建GT包中的gt_color_box的发散色彩方案

使用R的ggplot2包中的scale_fill_gradient2函数来创建发散型颜色方案，下面是示例代码：

library(gt)
library(ggplot2)

# 创建数据框
data <- data.frame(x = c(1:10), y = runif(10, min = 0, max = 1), z = runif(10, min = -1, max = 1))

# 创建gt表格
my_table <- gt(data)

# 设置发散型颜色方案
my_table <- my_table %>% 
  data_color(columns = "z", colors = scale_fill_gradient2(low = "blue", mid = "white", high = "red", midpoint = 0))
  
# 显示表格
my_table

在上面的代码中，首先使用gt函数创建一个基于data数据框的gt表格。接着使用data_color函数来为表格中的z列设置颜色，这里的颜色方案是使用ggplot2包中的scale_fill_gradient2函数创建的发散型方案，其中low和high参数分别指定颜色变化的两端，mid参数指定中间颜色，midpoint参数指定发散值，也就是颜色从低到中间和从中间到高是不同的。最后使用管道运算符%>%将表格传递给下一个操作。最后展示的my_table表格已经具有了发散型颜色。