如何为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映射其辩论对象一对一：

  

values：CSS值的向量

     

levels：要映射到（一对一）的数据值的字符向量   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)