según - ¿Cómo mostrar en la aplicación brillante una matriz, especificando el color con condicionales?
formato condicional colorear filas dependiendo del valor de una celda (1)
Puede usar DT::styleInterval
lugar de DT::styleEqual
library(DT) # for datatable, formatStyle, styleInterval
library(dplyr) # for %>%
myDT <- matrix(c(-3:2), 3) %>% datatable %>%
formatStyle(
columns = 1:2,
backgroundColor = styleInterval(
cuts = c(-.01, 0),
values = c("red", "white", "green")
)
)
myDT
Ejecutar estas líneas en RStudio mostrará la matriz formateada en el panel del visor. Si no está utilizando RStudio, también puede mostrar la tabla en una aplicación brillante.
library(shiny)
shinyApp(
ui = fluidPage(DT::dataTableOutput(''table''))
server = function(input, output, session){
output$table = DT::renderDataTable({myDT})
}
)
Tengo una matriz M con valores positivos y negativos. Estoy tratando de mostrar como una tabla en la aplicación brillante, utilizando el paquete DT. Me gustaría mostrar la matriz con diferentes colores. Números positivos en números rojos y negativos (por ejemplo).
Hasta el momento, solo puedo agregar colores de una a una. Pero quiero agregar colores de esta manera: if matrix_values> 0 "color1", if matrix_values <0 "color2".
M <- matrix(c(-3:2), 3) # The matrix is more complex and it''s created in a
reactive environment. Here is only an example
M_out <- reactive({
DT::datatable(M()) %>%
formatStyle(
columns = c(1:7),
backgroundColor = styleEqual(c( 0, 1), c("green", "red")
))
})
output$X_table_2 <- DT::renderDataTable(M_1X2())
Gracias !!