我有以下代码可以在R中运行。这是一个数据表,在其中我根据单元格的颜色是否等于列中的任何其他值来更改单元格的颜色。到目前为止,我只能根据输入的给定列名(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)
)
)
答案 0 :(得分:2)
我可以通过传递formatStyle来在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')))