DT::Datatable 的正负值颜色不同

【问题标题】：Color differently positive and negative values of DT::DatatableDT::Datatable 的正负值颜色不同
【发布时间】：2019-12-28 17:03:52
【问题描述】：

我正在尝试根据此代码块分别用绿色和红色为DT::Datatable 的某一列（第三）的正值和负值着色，但我不是 javascript 用户。有没有办法设置这个？

library(DT)

datatable(head(iris)) %>% 
    formatStyle(1:4, color = JS("value % 1 === 0 ? 'red' : ''"))

【问题讨论】：

可能对你有用：stackoverflow.com/questions/47508736/…

标签： javascript r dt

【解决方案1】：

您可以为此使用DT::styleInterval：

library(DT)

## data (iris dataset contains no negative values)
dat <- data.frame(
    letters = LETTERS[1:26],
    numbers = sample(c(-1, -0.5, 0, 0.5, 1), 26, replace = TRUE)
)

datatable(dat) %>%
    formatStyle(
        columns = "numbers", 
        color = styleInterval(cuts = 0, values = c("red", "green")),
        fontWeight = "bold"
    )

注意：如果零值应该被忽略，您可以在零附近的一个小区域设置黑色：

eps <- 1E-5

datatable(dat) %>%
    formatStyle(
        columns = "numbers", 
        color = styleInterval(cuts = c(-eps, eps), values = c("red", "black", "green")),
        fontWeight = "bold"
    )

【讨论】：