r - Reactable：组中的条件样式

Question

我正在尝试在 R 中结合以下两个可反应的功能：

• 条件样式
• 聚合/分组

我的目标是根据组总和值突出显示具有不同橙色阴影的聚合（总和）组标题。这样，更容易发现具有高/低值的组。

我只对单元格值和组标题使用一种颜色范围c("#ffe4cc", "#ffb54d")，例如100作为单元格值和100组标题会产生相同的颜色。

---

到目前为止我尝试过的（这是一个简化的示例，我的现实问题需要突出显示多个列/组）：

library(datasets)
library(reactable)

data('CO2')

get_orange <- function(x) rgb(colorRamp(c("#ffe4cc", "#ffb54d"))(x), maxColorValue = 255)

reactable(
  CO2,
  groupBy = c('Plant', 'Type', 'Treatment'),
  columns = list(
    conc = colDef(
      aggregate = 'mean'
    ),
    uptake = colDef(
      aggregate = 'sum',
      style = function(value) {
        normalized <- (value - min(CO2$uptake)) / (max(CO2$uptake) - min(CO2$uptake))
        color <- get_orange(normalized)
        list(background = color)
      }
    )
  )
)

导致： 屏幕截图预期与实际

---

> packageVersion('reactable')
[1] ‘0.2.3’