在 DT 中手动指定 styleColorBar 限制答案

【问题标题】：Manually specifying styleColorBar limits in DT在 DT 中手动指定 styleColorBar 限制
【发布时间】：2020-09-16 03:34:53
【问题描述】：

我正在尝试使用 DT 包在 R 中创建并排数据表，并使用this page 底部显示的 styleColorBar 函数对单元格背景进行着色。但是，我希望条形的大小与绝对值成正比，而不仅仅是表中的值。例如，如果我从下面的数据中制作了两个表格

data_1 <- data.frame("Team" = c("Alex", "Beth", "Charlie", "Diane"),
   "Spending_Q1" = c(1000, 500, 1500, 1000))


data_2 <- data.frame("Team" = c("Alex", "Beth", "Charlie", "Diane"),
   "Spending_Q2" = c(3000, 500, 500, 500))

我希望显示 3000 的单元格有最长的背景栏，而显示 1500 的单元格有一半长的背景栏。

这可能吗，还是条形图总是只与同一个数据表中的最大值成比例？

【问题讨论】：

标签： r shiny datatables dt

【解决方案1】：

您可以像这样以绝对值指定它：

library(DT)
data_1 <- data.frame("Team" = c("Alex", "Beth", "Charlie", "Diane"),
                     "Spending_Q1" = c(1000, 500, 1500, 1000))

data_2 <- data.frame("Team" = c("Alex", "Beth", "Charlie", "Diane"),
                     "Spending_Q2" = c(3000, 500, 500, 500))

datatable(data_1) %>% formatStyle(names(data_1),
                              background = styleColorBar(1:3000, 'lightblue'),
                              backgroundSize = '98% 88%',
                              backgroundRepeat = 'no-repeat',
                              backgroundPosition = 'center')
datatable(data_2) %>% formatStyle(names(data_2),
                                  background = styleColorBar(1:3000, 'lightblue'),
                                  backgroundSize = '98% 88%',
                                  backgroundRepeat = 'no-repeat',
                                  backgroundPosition = 'center')

这就是你要找的吗？

【讨论】：