根据重复的数据，将数据中的单元格颜色改变为不同的颜色。

Question

我有下面这段代码，你可以在R中运行。这是一个datatable，我根据单元格的颜色是否等于列中的任何其他值来改变它们的颜色。到目前为止，我能够根据一些单元格的值来改变它们的颜色（到目前为止只有红色），只针对输入的列名（Sepal.Length, Sepal.Width）。我试图将同一列中的所有重复的单元格染成相同的颜色，但是对于不同的重复的单元格，颜色会有所不同。

Sepal.Length        Sepal.Width
3                   9
4                   3
5                   3
3                   4
8                   9
4                   1
3                   2

例如Sepal.Length中的3，我想让它变成红色，但Sepal.Width中重复的3变成不同的颜色。有什么好办法吗？

library(DT)

data2 <- cbind(ID = "ID",iris[,1:4])
getNumber <- function(colname, df) {
  which( colnames(df)==colname )
}

getCondition<-function(col, df) {
  lines <- ''
  lines = paste0(lines, apply(df[col], 2, function(i) {
    line <- paste('value == ', i)
  }))
  conidtion <- paste0(lines)
  print(conidtion)
}

names <- c("Sepal.Length", "Sepal.Width")

JSfunc <- paste0("function(row, data) {\n",
       paste(sapply(names,function(i) paste0(
         "var value=data['",getNumber(i, data2) -1,"'];
         if (value!==null) $(this.api().cell(row,'",getNumber(i, data2) - 1,
         "').node()).css({'background-color': ", getCondition(i, data2) ," ? 'red' : ''});\n")
       ), collapse = "\n"),"}" )

datatable(
  data2, rownames = FALSE, class = 'cell-border stripe',
  options = list(
    dom = 't', pageLength = -1, lengthMenu = list(c(-1), c('All')),
    rowCallback=JS(JSfunc)
  )
) 

Answer 1

我能够通过管道格式化Style来完成JS之外的工作

library(DT)

data2 <- cbind(ID = "ID",iris[,1:4])
datatable(data2,
    rownames = FALSE, 
    class = 'cell-border stripe',
    options = list(dom = 't',
                    pageLength = -1, 
                    lengthMenu = list(c(-1), c('All')))) %>% 
formatStyle(columns = 'Sepal.Length', 
        valueColumns = 'Sepal.Length',
        backgroundColor = styleEqual(levels = c(5), 
                                     values = c('red'))) %>% 
formatStyle(columns = 'Sepal.Width', 
          valueColumns = 'Sepal.Width',
          backgroundColor = styleEqual(levels = c(3), 
                                       values = c('yellow')))

我无法在Sepal.Length中找到3的值，所以我在这个例子中使用了5的值。