使用 DT 包根据其分位数为列的单元格着色并为任何列执行此操作答案

【问题标题】：Colorize cells of a column based on its quantiles using DT package and do it for any column使用 DT 包根据其分位数为列的单元格着色并为任何列执行此操作
【发布时间】：2017-06-13 07:40:54
【问题描述】：

我想根据分位数为表格的每一列的单元格着色，并为每一列执行此操作。对于这个练习，我一直在使用 DT 包。

您将在下面找到一个可重现的示例，该示例根据整个表格的数字分位数对单元格进行着色：

set.seed(1)
df = as.data.frame(cbind(matrix(round(rnorm(50), 3), 10), sample(0:1, 10, TRUE)))
brks <- quantile(df, probs = seq(.05, .95, .05), na.rm = TRUE)
clrs <- round(seq(255, 40, length.out = length(brks) + 1), 0) %>%{paste0("rgb(255,", ., ",", ., ")")}
datatable(df) %>% formatStyle(names(df), backgroundColor = styleInterval(cuts=brks,values=clrs))

我也想这样做，但基于列。这是我为此编写的代码：

set.seed(1)
df = as.data.frame(cbind(matrix(round(rnorm(50), 3), 10), sample(0:1, 10, TRUE)))
brks <- apply(df,MARGIN=2,FUN=quantile,probs=seq(.05, .95, .05))
clrs <- round(seq(255, 40, length.out = nrow(brks)), 0) %>% {paste0("rgb(255,", ., ",", ., ")")}
r=replicate(ncol(brks),clrs)
r=as.vector(r)
r=append(r,"rgb(255,20,20)")
brks <- as.vector(brks)
datatable(df) %>% formatStyle(names(df), backgroundColor = styleInterval(cuts=brks,values=r))

我开始对列进行应用以获取基于列的分位数 (brks) 并创建匹配的复制颜色 (r)。然后我把这些矩阵作为向量，因为styleInterval 只接受向量。此外，我将一个新元素附加到向量 r，因为我认为 styleInterval 的参数“值”应该比参数“cuts”多一个元素。

我的代码有一些问题，尤其是“cuts' must be sorted越来越多”出现了。有没有人想办法解决它？

【问题讨论】：

标签： css r formatting background-color dt

【解决方案1】：

这段代码可以解决问题，为我的向量brks 和clrs 的每个第 i 个元素应用颜色和评估函数：

set.seed(1)
df <- cbind.data.frame(matrix(round(rnorm(50), 3), 10), sample(0:1, 10, TRUE))
brks <- apply(df, 2, quantile, probs=seq(.05, .95, .05), na.rm=T)
clrs <- apply( brks, 2, function(x) round(seq(255, 40, length.out = length(x)+1), 0) %>% {paste0("rgb(255,", ., ",", ., ")")})
eval(parse(text=paste0("datatable(df) ", paste(sapply(1:ncol(df), function(i) paste0("%>% formatStyle(names(df)[",i,"], backgroundColor = styleInterval(brks[,",i,"], clrs[,",i,"]))") ), collapse = " " ))))

【讨论】：