R 闪亮的颜色代码表行取决于单元格内容

Question

我正在尝试根据第 2 列中的数据对表格的每一行进行颜色编码。请参见下图。

基本上给你一个例子，代码需要依赖于第二列，所以如果它说撒哈拉以南非洲，例如，使整行具有某种颜色，拉丁美洲和加勒比地区相同，但不同颜色。 Region 列的右侧还有一些其他列。我想我可能需要下面的 dataTable 函数中的一些 if 语句，但我们将不胜感激。

  output$Composite <- renderDataTable(datatable(FVI_DATA_COMPOSITE, 
                                                options = list(
                                                columnDefs = list(list(className = 'dt-center', targets = 3:9)))) 
                                                %>% formatRound(c(3:9), 2))

编辑：当前不工作的新代码块。

 output$Composite <- renderDataTable(datatable(FVI_DATA_COMPOSITE, 
                                                options = list(
                                                columnDefs = list(list(className = 'dt-center', targets = 3:9)), pageLength = 50, lengthChange = FALSE))  
                                                %>% formatRound(c(3:9), 2))
                                                %>% formatStyle(0, target = "row", 
                                                backgroundColor = styleEqual(which(FVI_DATA_COMPOSITE$Region == "Sub-Saharan Africa")[1], "red"))

Answer 1

如果使用设置target = "row"参数，也可以不使用JS格式化整行：

library(shiny)
library(magrittr)
library(DT)
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             dataTableOutput('table')
      )
    )
  ),
  server = function(input, output) {
    output$table <- renderDataTable({
      datatable(iris) %>% 
        formatStyle(0, target = "row", backgroundColor = styleEqual(which(iris$Sepal.Length < 5)[1], "red"))
    })
  }
)
}

Answer 2

使用DT helper function 可以轻松地有条件地格式化单个单元格：

library(DT)
datatable(mtcars) %>% 
    formatStyle(0,
                backgroundColor = styleEqual(c('Mazda RX4', 'Mazda RX4 Wag'), 
                                             c('green', 'red')
                )
    )

有条件地格式化一整行，另一方面，我们必须在rowCallback选项中使用一些JS。

类似的东西：

library(DT)
datatable(FVI_DATA_COMPOSITE,
          options = list(
              rowCallback = JS('function(nRow, aData) {    
                                if (aData[1] == "Sub-Saharan Africa")
                                  $(nRow).css("background-color", "#9BF59B");
                                if (aData[1] == "Latin America ")
                                  $(nRow).css("background-color", "#yellow");
                                }'),
              columnDefs = list(list(className = 'dt-center', targets = 3:9))
          )
) %>% 
    formatRound(c(3:9), 2))