Question

我正在尝试根据另一列格式化多列的输出。

在下面的例子中，我想根据它们的值格式化Col1 / 2/3/4，与“Argu”列中的值进行比较。

即。
- 如果Col1，Row1小于7标记为红色，如果不是绿色 - 如果Col1，Row2小于6标记为红色，如果不是绿色 - 如果Col1，Row3小于7标记红色，如果不是绿色 - 如果Col2，Row1小于7标记红色，如果不是绿色 - 如果Col2，Row2小于6标记为红色，如果不是绿色 - 如果Col2，Row3小于7标记为红色，如果不是绿色。

等

我知道通过显式调用该值来格式化基于另一列的一列是直截了当的，但是对于行之间的可变参数值，这不起作用

# Load Packages
library(shiny)
library(DT)

# Create DT
Col1 = c(9,5,8)
Col2 = c(9,4,7)
Col3 = c(9,9,5)
Col4 = c(8,8,7)
Argu = c(7,6,7)
df = data.frame(Col1,Col2,Col3,Col4,Argu)

# Create Shiny Output
shinyApp(
  ui = 
      navbarPage("Testing",dataTableOutput('dt')),

  server = function(input, output, session) {

    output$dt = DT::renderDataTable(datatable(df)
    %>% formatStyle("Col1","Argu", backgroundColor = styleInterval(6.1,
c("Red","Green")))

  )}
 )

任何帮助将不胜感激！

Answer 1

您可以构建隐藏的逻辑列，将每个数据列与Argu进行比较，并相应地格式化DT上的列。

请参阅以下代码。希望这会有所帮助。

# Load Packages
library(shiny)
library(DT)

# Create DT
Col1 = c(9,5,8)
Col2 = c(9,4,7)
Col3 = c(9,9,5)
Col4 = c(8,8,7)
Argu = c(7,6,7)
df = data.frame(Col1,Col2,Col3,Col4,Argu)

# Build hidden logical columns for conditional formatting
dataCol_df <- ncol(df) - 1
dataColRng <- 1:dataCol_df
argColRng <- (dataCol_df + 2):(dataCol_df * 2 + 1)
df[, argColRng] <- df[, dataColRng] < Argu

# Create Shiny Output
shinyApp(
  ui = 
    navbarPage("Testing",dataTableOutput('dt')),
  server = function(input, output, session) {
    output$dt = DT::renderDataTable(
      datatable(df,
                # Hide logical columns
                options=list(columnDefs = list(list(visible=FALSE, 
                                                    targets=argColRng)))) %>% 
        # Format data columns based on the values of hidden logical columns
        formatStyle(columns = dataColRng,
                    valueColumns = argColRng,
                    backgroundColor = styleEqual(c('0', '1'), 
                                                 c("green", "red")))
    )}
)

Answer 2

这是另一种解决方案：

library(shiny)
library(DT)

# Create DT
Col1 = c(9,5,8)
Col2 = c(9,4,7)
Col3 = c(9,9,5)
Col4 = c(8,8,7)
Argu = c(7,6,7)
df = data.frame(Col1,Col2,Col3,Col4,Argu)

# Create Shiny Output
shinyApp(
  ui = 
    navbarPage("Testing",dataTableOutput('dt')),

  server = function(input, output, session) {

   output$dt <- renderDataTable( DT::datatable(df,options = list(rowCallback = JS('
                                                          function(nRow, aData, iDisplayIndex, iDisplayIndexFull) {
                                                     if (parseFloat(aData[1]) < aData[5])
                                                     $("td:eq(1)", nRow).css("background-color", "red");
                                                     if (parseFloat(aData[1]) >= aData[5])
                                                     $("td:eq(1)", nRow).css("background-color", "green");
                                                     if (parseFloat(aData[2]) < aData[5])
                                                     $("td:eq(2)", nRow).css("background-color", "red");
                                                     if (parseFloat(aData[2]) >= aData[5])
                                                     $("td:eq(2)", nRow).css("background-color", "green");
                                                     if (parseFloat(aData[3]) < aData[5])
                                                     $("td:eq(3)", nRow).css("background-color", "red");
                                                     if (parseFloat(aData[3]) >= aData[5])
                                                     $("td:eq(3)", nRow).css("background-color", "green");
                                                     if (parseFloat(aData[4]) < aData[5])
                                                     $("td:eq(4)", nRow).css("background-color", "red");
                                                     if (parseFloat(aData[4]) >= aData[5])
                                                     $("td:eq(4)", nRow).css("background-color", "green");
                                                                                  }'
                                                                                  ))))


    }
)

R Shiny DT格式列基于值

2 个答案: