javascript - 条件格式数据表 DT R

Question

我是 R 中 DT 包的忠实粉丝。我想复制我拥有的一些 Excel 条件格式表，但发现很难访问样式功能。

具体来说，我希望能够创建一个函数，允许用户调用数据表的行/列并对其应用一些条件格式，类似于在 excel 中的完成方式。对于像我这样的新手 R 用户来说，这将是一个额外的功能，并且也可以加快其他人的进程。与热图不同，条件格式对于行/列的类型不完全相同时很重要，因此您需要单独执行每一个。能够指定什么是高值(value)和低值(value)选项标记也很好。

我看到您可以创建中断，如以下关于 this 的示例所示页面

    # create 19 breaks and 20 rgb color values ranging from white to red
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(brks, clrs))

但我不确定如何应用于单个行，尽管您似乎可以按名称调用它们，如所见 here通过 formatStyle() 和背景颜色，但是你仍然没有阴影渐变，你需要知道行/列名称，这有点太多了

创建自定义函数的任何帮助都将对 R 数据表社区 IMO 有很大帮助。

Answer 1

你可以试试这样的:

 # create 19 breaks and 20 hex color values ranging from red to green using white around the median
brks <- quantile(df, probs = seq(.05, .95, .05), na.rm = TRUE)
colfunc <- colorRampPalette(c("red","white","green"))
clrs <- colfunc(length(brks) + 1)
datatable(df) %>% formatStyle(names(df), backgroundColor = styleInterval(brks, clrs))