如何为 r 闪亮数据表中的特定数据表单元格着色

Question

我有一个从数据帧创建的数据表，如下所示：

output$main_temp <- renderDataTable(df[,-1:-1], width = "auto")

我想用带有或不带有值的颜色。有值的单元格为绿色，没有值的单元格为红色。

我试过 ：

output$main_temp <- renderDataTable({
datatable(df[,-1:-1], options = list(
    columnDefs = list(list(targets = 6, visible = FALSE))
)) %>% formatStyle(
  names(df[,-1:-1]),
  backgroundColor = styleEqual(c(0, 1), c('gray', 'yellow'))
)
})

样本数据 ：

所需输出：

Answer 1

styleEqual将其论点一对一映射：

value：CSS 值的向量

level：要映射（一对一）到 CSS 值的数据值的字符向量

因此你可以做

df <- data.frame(cat = letters[1:5], 
                 t1 = c(33, NA, 89, 45, NA),
                 t2 = c(NA, NA, 4, NA, 23),
                 t3 = c(56, NA, NA, 67, NA),
                 t4 = c(NA, NA, 12, 66, NA))

uval <- unique(df[!is.na(df)])
datatable(df) %>% 
    formatStyle(names(df)[-1], 
    backgroundColor = styleEqual(c(NA, uval), 
    c('red', rep('lightgreen', length(uval)))))

将每个值映射到相同的颜色。

另一种选择是使用 JavaScript手动实现它：

library(shiny)
library(htmlwidgets)

js <- 'function(settings, json) {
    // For every row, select all table cells starting at cell #3
    $("#DataTables_Table_0 td:nth-child(3+1n)").each(function(key, val) {
        if( $(this).html() == "") {
            $(this).css("background-color", "#f00");
        } else {
            $(this).css("background-color", "#0f0");
        };
    });
}'

ui <- fluidPage(fluidRow(dataTableOutput("main_temp")))

server <- function(input, output) {
    df <- data.frame(cat = letters[1:5], 
                     t1 = c(33, NA, 89, 45, NA),
                     t2 = c(NA, NA, 4, NA, 23),
                     t3 = c(56, NA, NA, 67, NA),
                     t4 = c(NA, NA, 12, 66, NA))
    // when the table has finished loading, execute the JS code
    output$main_temp <- renderDataTable(df, options = list(initComplete = JS(js)))
}

shinyApp(ui = ui, server = server)