R/d3heatmap/shiny - 有沒有辦法改變軸的顏色？

Question

不幸的是，此時 d3heatmap 中沒有更改軸標簽顏色的功能。 這限制了一個人使用漂亮的“css”樣式來設置繪圖樣式的能力，如下所示：

一定有辦法操作javascript代碼； 有關在本地計算機上查找這些文件的簡單方法，請參閱之前的 stackoverflow.com 問題。

這是一個可重現的示例（盡管我的具體問題是在 {shiny} 應用程序中）：

library(d3heatmap)

d3heatmap(x = mtcars,
      Colv = NULL,
      scale= "column",
      key = FALSE,
      yaxis_font_size = "0pt",
      xaxis_font_size = "10pt")

Answer 1

只需將其添加到您的 ui.R 中的某個位置即可。 根據需要更改顏色。

    tags$head(tags$style(HTML("
                              svg.xaxis text {
                                fill: #0000ff;
                              }
                              ")))

完整示例

library(shiny)
library(d3heatmap)

ui <- shinyUI(fluidPage(

   titlePanel("Old Faithful Geyser Data"),

   sidebarLayout(
      sidebarPanel(
        tags$head(tags$style(HTML("
                                  svg.xaxis text {
                                    fill: #0000ff;
                                  }
                                  ")))
      ),

      mainPanel(
         d3heatmapOutput("out")
      )
   )
))

server <- shinyServer(function(input, output) {

  output$out <- renderD3heatmap({
    d3heatmap(x = mtcars,
              Colv = NULL,
              scale= "column",
              key = FALSE,
              yaxis_font_size = "0pt",
              xaxis_font_size = "10pt")
  })

})

shinyApp(ui = ui, server = server)