根据另一列使用条件颜色将数据表显示为HTML表

Question

我有一个数据表（mtcars）。它有名称为：mpg cyl disp hp drat wt qsec vs的列，我想将每一列与vs进行比较（第1列vs第8列，第2列vs第8列等），并从1：7开始将每一列颜色为红色（如果元素小于第8列中的元素）、黄色（如果元素相等）或绿色（如果元素较大）。

我已经使用了KableExtra包，并使用了下面的代码：

library(dplyr)
library(kableExtra)
mtcars %>%
 mutate(
   car = row.names(.),
   mpg = cell_spec(mpg, "html", background = ifelse(mpg > vs, "green", "red")),
   cyl = cell_spec(cyl, "html", background = ifelse(cyl > vs,"green", "red" )),
 ) %>%
 kable(format = "html", escape = F) %>%
 kable_styling("striped", full_width = F)

也尝试了condformat和tableHTML...但是不能动态地比较列。

Answer 1

在DT包中使用列样式的一种可能方法是在formatstyle中添加一组用于设置背景色的虚拟列：

library(dplyr)
library(DT)

## add dummy columns for formatting
mtcarsColor <- mutate_all(mtcars, list(color = ~case_when(
            . < mtcars$vs ~ -1,
            . > mtcars$vs ~  1,
            TRUE ~ 0
        )
    )
)

## relevant column indices
dataCols <- grep("color", names(mtcarsColor), invert = TRUE) 
colorCols <- grep("color", names(mtcarsColor))

## datatable formatted by (hidden) dummy columns
datatable(mtcarsColor,
        rownames = FALSE,
        options = list(columnDefs = list(list(visible = FALSE, targets = colorCols - 1)))    
    ) %>%
    formatStyle(columns = dataCols,
        valueColumns = colorCols,
        backgroundColor = styleEqual(c("-1", "0", "1"), c("#FF000080", "#FFFF0080", "#00FF0080"))
    )