為DT :: Datatable的正負值設置不同的顏色

Question

我試圖根據此代碼塊分別用綠色和紅色為DT::Datatable的某一列（第三）的正值和負值着色，但是我不是JavaScript用戶。 有什么辦法設置嗎？

library(DT)

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

Answer 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"
    )