반짝이는 앱에서 조건을 사용하여 색상을 지정하는 매트릭스를 어떻게 표시합니까?

Question

나는 양수 값과 음수 값을 가진 행렬 M을 가진다. DT 패키지를 사용하여 반짝이는 응용 프로그램에서 테이블로 표시하려고합니다. 매트릭스를 다른 색상으로 표시하고 싶습니다. 빨간색과 음수의 양수 (예 :).

지금까지는 색상을 일대일 방식으로 만 추가 할 수 있습니다. 하지만 난이 방법으로 색상을 추가하고 싶습니다 : matrix_values> 0 "color1", 만약 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()) 

감사합니다.

Answer 1

당신은 뷰어 창에서 포맷 된 매트릭스를 표시합니다 RStudio에서이 라인을 Runnig DT::styleInterval 대신

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 

DT::styleEqual의를 사용할 수 있습니다. RStudio를 사용하지 않는 경우 반짝이는 앱에 테이블을 표시 할 수도 있습니다.

library(shiny) 
shinyApp(
    ui = fluidPage(DT::dataTableOutput('table')) 
    server = function(input, output, session){ 
    output$table = DT::renderDataTable({myDT}) 
    } 
)