Условное форматирование ячеек для данных в R - PullRequest
Новая
       13

Условное форматирование ячеек для данных в R

0 голосов
/ 27 февраля 2019

Я хочу изменить цвет ячейки, если выполнены два условия.Давайте возьмем mtcars фрейм данных в качестве примера, если vs=1 и cyl>=6 я хочу, чтобы cyl зеленая ячейка, а если vs=1 и cyl<6, я хочу желтую ячейку cyl.

Это должен быть конечный результат:

enter image description here

Моя проблема в том, что я не могу выполнить и / или выполнить условия с такими функциями, как formatStyle

Спасибо!

1 Ответ

0 голосов
/ 27 февраля 2019

Опция с использованием 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"))
...