DT 包中如何按照另一列的正负给某一列上色

Cloud2016

library(magrittr)
library(DT)

dat <- data.frame(x1 = c(30, 20, 5), x2 = c(35, 15, 20))

dat <- transform(dat, diff1 = x2 - x1) %>%
  transform(diff2 = (x2 - x1) / x1) %>%
  transform(diff3 = paste0(diff1, "(", scales::percent(diff2, accuracy = 0.01), ")"))

datatable(dat) %>%
  formatPercentage(c("diff2"), digits = 2) %>%
  formatStyle("diff2", color = DT::styleInterval(0, c("red", "green")))

当前的状况是

我想要的是 diff3 这一列加上红绿色

Cloud2016

自问自答一下，如下即可，注意函数 formatStyle() 里的 valueColumns 参数

datatable(dat) %>%
  formatPercentage(c("diff2"), digits = 2) %>%
  formatStyle("diff2", color = DT::styleInterval(0, c("red", "green"))) %>% 
  formatStyle("diff3", valueColumns = "diff2", color = DT::styleInterval(0, c("red", "green")))

都不好意思说，帖子快写完的时候，突然知道要怎么解决问题！

Hoas

Cloud2016 我也经常这样！