使用不可见列的 R DT 条件格式

Question

此问题涉及this但我想要调节的值不是单元格的值，而是可用但未在 DT 中显示的外部列。

我的例子很简单:

DT::datatable(
  iris[,1:4],
  editable = TRUE,
  filter = c("bottom"),
  rownames = FALSE,
  extensions = 'Buttons',
  options = list(
    pageLength=21, scrollY='400px',
    dom = 'Brt'
))%>% formatStyle('Sepal.Length', fontWeight = styleInterval(5, c('normal', 'bold')))

如何根据 iris$Species 的值对列 Sepal.Length 进行颜色编码或应用格式

• 如果Species是setosa那么蓝色和
• 如果Species 是versicolor 则为红色
• 如果 Species 为 virginica 则为绿色

Answer 1

这应该可以完成工作

library(DT)
DT::datatable(
  iris,
  editable = TRUE,
  filter = c("bottom"),
  rownames = FALSE,
  extensions = 'Buttons',
  options = list(
    columnDefs = list(list(targets = 4, visible = F)),
    pageLength= 150, scrollY='400px',
    dom = 'Brt'
  )) %>% formatStyle(
    'Sepal.Length', 'Species',
    backgroundColor = styleEqual(c("setosa", "versicolor","virginica"), c('steelblue', 'red', "green"))
  )