我正在尝试根据另一列格式化多列的输出。
在下面的例子中,我想根据它们的值格式化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")))
)}
)
任何帮助将不胜感激!
答案 0 :(得分:3)
您可以构建隐藏的逻辑列,将每个数据列与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")))
)}
)
答案 1 :(得分:1)
这是另一种解决方案:
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");
}'
))))
}
)