我正在尝试在 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’