R中用于数据表的单元格的条件格式

Question

如果要满足两个条件，我想更改单元格的颜色。让我们以mtcars数据帧为例，如果vs=1和cyl>=6我希望cyl单元格为绿色，并且如果vs=1和cyl<6我希望cyl单元格为黄色。

这应该是最终结果：

我的问题是我无法使用和/或使用formatStyle之类的条件

谢谢！

Answer 1

使用JavaScript的选项：

library(DT)

js <-  c(
  "function(settings) {",
  "  var table = settings.oInstance.api();",
  "  var nrows = table.rows().count();",
  "  for(var i=0; i<nrows; i++){",
  "    var vs = table.cell(i,8);",
  "    var cyl = table.cell(i,2);",
  "    if(vs.data() == 1){",
  "      cyl.node().style.backgroundColor = cyl.data() >= 6 ? 'green' : 'yellow';",
  "    }",
  "  }",
  "}")

datatable(mtcars, 
          options = list(initComplete = JS(js))
)

另一个选择：

dat <- mtcars
dat$colors <- with(dat, ifelse(vs==1, ifelse(cyl>=6, "green", "yellow"), "white"))
datatable(dat, 
          options = list(
            columnDefs = list(
              list(visible = FALSE, targets = 12)
            )
          )
) %>% formatStyle("cyl", valueColumns = "colors", backgroundColor = JS("value"))